TITLE DCMC1 »REV. A» 


PAGE 


I 


ooouoi 

OOOOOc 

000003 

000004 

000005 

000006 

000007 

ooooob 

000009 
000010 
. 000011 
000012 
000013 
000014 
000015 
000016 
OOOo17 

ooooib 

000019 

000020 

000021 

000U22 

000023 

000024 

000025 

000026 

000027 

00002b 

000029 

000030 

000031 

000032 

000033 

000034 

000035 


TITLE DCMC1 * REv• A* 

* 

# 

* 

* 

* DESCRIPTION; 

# 

# 

* 


THIS T6V PROGRAM VERIFIES PROPER OPERATION OF THe nUALLINE 
COMMONICATION PROCESSOR (DLCP) FOR SERIES 60* LEVEL 6/20* 

THE SUBSYSTEM ITEMS SUPPORTED BY THIS PKOGRmM ARe; 

DLC9101 Dual line COMMUNICATION PROCESSOR 


* revision history; 


REV 

A 


DATE 

FtB 


78 


ORIGINAL RELEASE 


* 

* 

* 

# 

*#* ##*##****#***#*#***** ft*#****#**#*# ******** **** **************** ************ * 

* THIS DOCUMENT AND THE INFORMATION CONTAINED 

* THEREIN IS CONFIDENTIAL AND PROPRIETARY TO AND 1 HE 

* EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION 

* SYSTEMS INC. IT IS MADE AVAILABLE ONLY TO HONEy- 

* WELL AUTHORISED RECIPIENTS FOR THEIR USE SOuELY IN 

* THE MAINTENANCE AND OPERATION OF HONEYWELL 

* PRODUCTS. This DOCUMENT AND INFORMATION MUST BE 

* MAINTAINED IN STRICTEST CONFIDENCE? IT MUST NOT 

* BE REPRODUCED IN WHOLE OR IN PART** AND IT SHALL 

* NOT BE DISCLOSED TO ANY OTHER PARTY - - 

* PRIOR WRITTEN CONSENT OF HONEYWELL. 

* 

* 
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PROGRAM PREPARATION; 


THt HOOT SOURCE OF THIS PROGRAM, AFTtR THE ADDITION OF APPROPRIATE 
TITLE AND END STATEMENTS, WAS PROCESSED BY THE HOST RESIDENT ASSEMB 
TO CREATE EITHER SHORT OR LONG ADDRESS FORM (SAF OR LAF ) OBJECT TEXT 


, _ _ _.... ASSEMBLER 

AND LlSiTNG, THE 6BJECT"fEXT , ’WAS^FU^THER w pRg^|sSED k BY A THE°H0sV T RESI0bNT 
LINKtR US ING THE APPROPRIATE CONSOLE ZV$LIB LIBRARY TO CREATE A PUNCH 
SEGMENT CONTAINING AN EXECUTABLE MODULE, THt ASSEMBLY LISTING WAS 
AUGMENTED WITH CROSS REFERENCE DATA PLUS THu LOAD MAP FROM THE LINKER 
TO CREATE A LIPT SEGMENT. 


DCMW1 

DCMCi 


60135054-001 

60135053-001 


(SOURCE) 


program distribution; 


THE ELEMENTARY ITEMS SUBMITTED TO THE 16V 
WERE THE EXECUTABLE PUNCHED CARD DECKS OF 
TAPE IMAGES uF THE AUGMENTED LISTINGS, 


program distribution center 
MLCS i and MLCL1* AND MAGNETIC 


REPRODUCTIONS OF THE EXECUTABLE CARD DECKS MAY BE AS DUPLICATE CARD DECKS 

or as member m vk m of a multiple member file, in the most frequent case 
IT WILL BE FuUND AS MEMBER VK WITHIN FILE PkOGFIle 0 p A DiSKEITE VOLUME 
ENTITLED DJAgS, 

DISTRIBUTION OF THE LISTINGS, WHICH SHOULD uE AVAILABLE IF ANY COMPLEX 
MAINTENANCE OR REPAIR is TO BE PERFORMED, iu NORMALLY MADt AS A 
PRINTED COPY, 


* ROUTINE DEMONSTRATION; 

* 

# 

# 


A MINIMUM SATISFACTORY TEST FOR NORMAL OPERATION MAY bt OBTAINED 
BY ENTERING THE CHANNEL NUMBER TO BE TESTED AND COMPLETING ONE PASS, 


* main MEMORY requirement; 


THIS PRQgRAM REQUIRES 16K WORDS OF MAIN MEMuRY AnD WILL USE 
ALL OF AVAILABLE MEMORY THROUGH 64K WORDS, 


* 

# 

* 

ft*********************************************************************** 

* 

* 

* 

# 

* 

* 

* 


TEST PKOCtEDUKE AND DESCRIPTION 

THE PROGRAM AUTOMATICALLY DETERMINES WHAT CHANNELS ARE ACTIVE 
ON THE DLCP TO BE TESTED. IT PROCEEDS TO EXCtRCISE ALU MOTHER 
BOARD FUNCTIONS THAT DO NOT REQUIRE LINE ADAPTERS. THE I ES I INCLUDES 
DLCP MEMORY, INSTRUCTION SET, AND DATA XFER TESTS* PSUEDO RANDOM 
DATA IS TRANSFIXED VIA ALL CHANNELS. IHt MLCP IS AaDE TO TRANSFER 
DATA TO ALL AVAILABt MEMORY ABOVE THE PROGRAM. DLCP INTERRUPTS ARE 
MADE ON ALE ACT IVE CHANNELS AT MULTIPLE LEVELS. 

AN ACTIVE CHANNEL IS ONE WHICH EITHER HAS A lINE ADAPTER PRESENT 
OR HAS ITS LINE ADAPTER-HEKE SIGNAL TIED TO uROUND. THE TEST 
PROGRAM CAN ONLY TEST ACTIVE CHANNELS# 


* OPERATING INSTRuCUONS 


LOAD AND START (OR RESTART) THE PROGRAM. TriE PROGRAM IDENTIFICATION WILL 
BE DISPLAYED ON THE CONSOLE. THE INITIAL START WILE ALSU DISPLAY; 

THt EVsLIu REVISION NUMBER 
THE ADDRESS FORM (SAP OK LAP) 

I/O EQUIPMENT DETECTED IN THE SY^TtM 
MEMORY SIZE 


THIS DISPLAY MUST Dt VERIFIED bY THt OPERATOR. 
ON RESTARTS. 


THIS DISPLAY IS OMITTED 


THE cONSGLt SEARCH KUt.ES ARE; FIND THE cQi' 

NUMBER CONNECTED THRU AN MDC CONTROLLER, IP tAeRE IS NQ'CUNSOLt ON AN 

mdc, then search fur a terminal with the highest channel number assigned 

TO AN ACLA ADAPTER ON AN DLC CONTROLLER. iF NO ASYNC ADAPTtR IS FOUND, 
THEN GO TU THt FULL CONTROL PANEL. 

THtKE ARE THREE CONSOLE CHANNEL OPTIONS DETERMINED BY THt VALUE OF LO¬ 
CATION "ZVSITY", 

IF ZVSTTY EuUALS (0000), SEARCH FOR A CONSuLE, 

IF 2 V $ T T Y EQUALS (FFFF), ASSUME THERE IS Nu CONSOLE# 

if zvstty equals neither (oooo), nqk (ffff>, then it is the console chan¬ 
nel number# note; default is TO search for a CONSOLE# 

ALL CONSOLE I/O IS EVEN PARITY# IF CONSOLu IS ON MLC* IT MUST BE ASYNC 
AND THE BAUu KATE SET AT 1200 TO MATCH THE PROGRAM SUPPLIED RATE. IF IT 
IS NECESSARY TO CHANGE THE PROGRAM BAUD RATE, THEN THE NEw BAUu KATE 
CODE SHOULD bt PUT INTO LOCATION "ZV$BUD" ^N HEX. THE TERMINAL BAUD RATE 
MUST Bt SET TU MATCH THIS NEW BAUD KATE. THE CORRECT HtX VALUE MAY bt 
OBTAINtD FROM THE FOLLOWING TABLE# 


bAUD RATt TABLE 


*- 

* 

ACLA 1 

• D. t (2118) {, 

# 

BAUD-KATE 



* 

30 

E 

0 

EE 

* 

75 

t 

1 

EE 

* 

110 

t 

2 

tt 

* 

134 

t 

3 

EE 

* 

150 

t 

4 

tt 

# 

200 

t 

5 

tt 

* 

3UQ 

t 

6 

tt 

* 

600 

E 

7 

tt 

* 

900 

E 

-EE 

* 

1050 

E 

6 

EE 

* 

1200 

t 

9 

tt 
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UOOi49 
000150 
000151 
OOU152 
000153 
000154 
000155 
000155 
000157 
00015b 
000159 
000160 
000161 
00016*: 
000163 
000164 
000165 
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00016b 
000169 
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000 17 * 
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000 * 0 * 
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1800 

2000 

2400 

3600 

4800 

7200 

9600 

19200 


10 (A) EE 

11 <b) EE 

12 <C) 

-EE _ 

13 (0) EE 
-EE _ 

14 (U EE 

15 (F ) EE 


10 (A) 

E II~(b) 

1* (C) 

E 13 (D) 
14 (E) 

15 (F) 


TO MAKE ANY UP THE ABOVE CHANGES* LOAD ANu HALj THE PROGRAM BEFORE EX¬ 
ECUTION. insert chance then execute, memory locations of w zv$tty m and 

"ZV$BOD" MAY BE FOUND IN MAP AT END OP LISTING. 

CONSUL! LEVtL-6 T6V MANUAL "AW94" PUR DETAILS On HOW 10 LOAD THE TESTS. 


THE FOLLOWING IS A TYPICAL RESULT OP LOADING 
PROGRAM. 


and starting to run the 


* 

DLCP 

TtST 

DLCS1 <PGM DATE> 


2VSLIB REV. 

6.0 

# 

ZVSAF 

= 1 < 2 > 

* 

WDT 



# 

CHAN 

DtVC 

ID 

* 

0400 

DSK 1 

2010 

* 

0480 

DSK 1 

2010 

* 

0580 

CDR 

2008 

* 

1200 

DISC 

2330 

* 

1280 

DISC 

2330 

* 

1300 

LPT 

2000 

* 

1380 

CONS 

2019 

* 

MEMORY LOW 

00002B2D 

* 

MEMORY HIGH 

00003FFF 16K 

* 

THE PROGRAM WILL THEN AS<; 

* 


PWR 

FRED (HZ)?: 


THE OPERATOR MUST TYPE IN THE FREQUENCY OF TrtE CLOCK 
USED TO DRIVE THE REAL TIME CLOCK ON HIS SYSTEM. THE 
PROGRAM NEXT DISPLAYS: 

DLCP CHANNEL?; 

THE OPERATOR MUST RESPOND WITH THE LOWEST ACTIVE ADDRESS ON 
THE MLCP. ENTER 4 HEX DIGITS FOLLOWED BY A CARRIAGE RETURN. 

THE MLCP ADDRESS WILL NORMALLY BE DISPLAYED AS AN ijeM IN THE 
CONFIGURATION PRINTOUT. 

THE PROGRAM WILL THEN RUN ABOUT 1 MINUTE AND TYPE; 

FW REV XX 

THIS IS A PRINTOUT OF THE CURRENT FIRMWARE REVISION. 

THE ABOVE PRINTOUT IS GIVEN ON THE FIRST PAqS ONLY. 

VALUE "XX" WILL BE STORED IN LOC "FW-REV" FOK EXAMINATION 
BY USERS WITH NO CONSOLE. 

IF THERE IS NO CONSOLE PRESENT REFER TO THE MANUAL "SERIES 60 
LEVEL 6 MODEL 34/36 SYSTEM COACTlVE MAINTENANCE OPERATORS 
GUIDE" DOC 71010202-100 FOR INSTRUCTIONS ON tNTERING DATA 
AND INTERPRETING PROGRAM MESSAGES. 

THE PROGRAM WILL RUN APPROXOMATELY 3-5 MINuTES Ip THERE ARE NO 
HARDWARE FAULTS. IT WlLt THEN DISPLAY: 

PASS 

AND HALT AT WITH P COUNTER DISPLAY AT HEX 100. 

HIT EXECUTE. THE PROGRAM WILL CONTINUE AND TYPE "PA 
EVERY 3-5 MINUTES WITH NO HALTS BETWEEN PASSES. 


TO CONTINUE 
SS" 


TO CHANGE TO A SECOND DLCP ADDRESS RESTART TfiE PROGRAM AT 

.. .. .tTon will then proceed as after an initial 


HEX 105. PROGRAM OPERAT 
START AT HEX 100. 

NOTE - FOR OPERATION WITH THE BASIC CONTROL PANEL THE PROGRAM 
MUST BE RELOADED TO TEST A SECOND MLCP. 


* ERROR REPORTS 


ERRORS WILL CAUSE THE PROGRAM TO HALT. AN ERROR MESSAGE WILL 
BE DISPLAYED IF A CONSOLE IS PRESENT, ALL ERROR MESSAGED ARE AN 
INDICATION THAT THE COMMUNICATIONS PRUCESSOR IS FAULT*. 

ERROR DISPLAYS ARE AS FOLLOWS*. 

ERR MBXX AT YYYY 

b7 B6 B5 B4 B3 B2 Bl I 

R7 R6 R5 R4 K3 R2 R1 M 

XX = TEST LABLE. SEE JUMP TABLt AT LOCATION "BKKl" 

FOR A LIST QF TESTS PERFORMED, 

YYYY = ERROR LOCATION IN LISTING. HAS COMMENT 
GIVING FAILING FUNCTION. 

B1-B7* I* R1-R7* M ARE CONTENTS OF REGISTERS. 

INTERPERTATION OF THESE IS FOR SPECIALIST USAGE. 

IN ALL CASES; 

R3 = CHANNEL NUMBER 

IN GENERAL 

R6 = SHOULD BE DATA 

R5 s ACTUAL DATA 

R7 s WORD NUMBER IN BLOCK TRANSFER 

A PROGRAM HALT WITH P DISPLAYING A VALUE LESS THAN 
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000262 
000263 
000264 
000265 
000266 
000267 
000268 
000269 
000270 
00027 i 
000272 
000273 
000274 
000275 
000276 
000277 
000276 
000279 
000*80 
000281 
000282 
000283 
000284 
000285 
000286 
000*87 
000288 
000289 
000290 
000291 
000292 
000293 
000294 
000295 
000296 
000297 
000296 
000*99 
000300 
000301 
000302 
000303 


HEX 100 INDICATES THAT A TRAP OCCUREQ. P DISPLAYS ONE 
BEYOND THE ACTUAL TRAP VECTOR WH1CH WAS TAKEN. TH£ 

TRAP SAVE AREA IS FROM LOC. 2-9. REFER TO MODEL 
34/36 T ♦ V OPERATING INSTRUCTION MANUAL , DOC 
71010460-200, SECTION 1.1 . 

if during the operation of the program ihe display panel 

BECOMES "HUNG" SUCH THAI THE DISPLAYED REGISTER IS 
UNCHANGING AND NO OTHER REGISTER MAY BE SELECTED, THEN 
THE MLCP BEING TESTED SHOULD BE REPLACED. 


**************************************** 

**************************************** 

* RESTRICTIONS; 

* 

* FOR SYSTEMS W|TH FIRMWARE REV NUMBER 4 UR LESS, R£V. A 

* OF THE PROGRAM MUST BE USED. 

* 

* THE FIRMWARE REV. NUMBER AT THE TIME OF RELEASING 

* REV. B OF THIS PROGRAM IS "5". 

* 

* THE FIRMWARE REV NUMBER AT THE TIME OF RELEASING REV C 

* OF THE PROGRAM IS "8"• 

* 

* 

* THE FIRMWARE REV. NUMbER AT THE TIME UF RELEASING REV 0 

* OF THE PROGRAM IS "9”. REV D CONTAINS NO FUNCTIONAL 

* DIFFERENCES FUR SAF MODE. 


* IF THIS PROGRAM IS TO BE RUN ON A SYSIEM WITH A BASIC CONTROL 

* PANEL, A SYSTtM CONSOLE MUST BE PRESENT. 

* 

*************************************** 

*************************************** 

* 

* 

************************************************ft*****#*#******#*#**##* 
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000304 
000303 
000306 
000307 
000306 
000309 
0003X0 
000311 
0003 12 
000313 
000314 
000313 
000316 
000317 
00031a 
000319 
000320 
000321 
00032* 
000323 
000324 
000323 
000326 
000327 
000326 
000329 
000330 
000331 
00033* 
000333 


STANDARD REGISTER ASSIGNMENTS 


000380 

000361 

000382 

000383 

000384 

000a83 

000386 


SB3 

$B2 

SB4,$B1 


VSL1B ENTRY 

ENTRY TO MAJOR TEST 


*E 

3>B7E 

ENTRY TO ERROR ROUTINE 

*E 

$R3 

CHANNEL 

*E 

$R3E 

•IS* DATA WORD 

*E 

$R6E 

•SHOULD BE* DATA WORD 

* 

SR7E 

TABLE CUUNT 

* 

ZERO 

ECU 

S 


XLQC 

ZHNTSA,ZHTHI5,ZVSHR 


XtOC 

ZV$KD*ZHTSAtZHTH17 


XLQC 

ZHISAZ,ZHIAFB 


XLOC 

ZHWD1CfZHRTCC 


XLOC 

ZHRTCUZHRTCL 


XLOC 

ZHPFR,ZHCOMM 


CTRL 

LINK ZViTH 


000334 

OOFF 





ORG 

ZERu+X•FF• 

000333 

OOFF 

0000 



STOP 

HLT 


000336 





# 



000337 





# 


operator MUST 

000336 





# 



000339 

010U 

69C0 

13A9 


STRT 

CMZ 

FR ST 

000340 

010* 

0961 

OObA 



bNE 

ST LOOP 

000341 

0104 

0F7C 




NOP 

> S T R T 

000342 





* 



000343 

0103 

6700 

14AC 


KESTRT 

CL 

<PASS 

00034a 

0107 

6 700 

OOFF 



CL 

<STuP 

000343 

0109 

0F82 



DRSRI 

B 

>DRSR 

00034o 

010A 

OF 6b 




b 

>RSf 

000347 





* 



00034a 





DRSR 

CALL 

ZV$kD»MESG 


01GB 

FBCO 

0003 






010D 

D360 

0000 

X 





010F 

0 F 80 







0110 

*701 






000349 

0111 

9870 

0F02 



LDR 

SRIt^Z•0F02• 

000330 

0113 

9F0G 

0109 



STR 

$Ki ,<DRSK1 

000351 

0113 

8960 

14AA 


RST 

CMZ 

<FR ST 

000332 

0117 

0980 

0128 



bNE 

<RST 1 

000333 

0119 

1C3C 




LDV 

SKU-60 

00U354 

011A 

9F00 

134E 



STR 

$R1 * <HRTZ 

000333 






CALL 

ZV$UC,MESG3 


OUC 

FBCO 

0003 






01 IE 

D380 

0000 

X 





01*0 

OFbO 







0121 

2718 






000356 






CALL 

ZV$ID,HKTZ 


0122 

FbCO 

0003 






0124 

D360 

0000 

X 





0126 

OFBO 







0127 

134E 






000357 





RST1 

CALL 

ZVSuC,MESGl 


0126 

FBCO 

0003 






0 1 * A 

6380 

0000 

X 





012C 

OF 60 







012D 

1367 






000^56 






CALL 

ZVSAH,DUMMY 


012E 

FBCO 

0003 






0130 

D380 

0000 

X 





013* 

0F80 







0133 

14C7 






000359 

0134 

9800 

14C7 



LDR 

SRI,<DUMMY 

000360 

0136 

9370 

FFCO 



AND 

SR 1 , »Z•FFCO * 

000361 

0136 

CB60 

0000 

X 


LAb 

SB4,<ZHT SA 

000362 

0 1 3 A 

CF 80 

0000 

X 


STB 

$B4,<ZHNT SA 

000363 

013C 

CB60 

0156 



LAB 

$B4,<NODEVF 

000364 

013E 

CF 80 

0000 

X 


ST b 

$B4* <ZHT H15 

000365 

0140 

9970 

03CO 



cmr 

$R1 , ?X•3C0• 

000366 

014* 

0302 




BG 

>C0N1 

000367 

0143 

OF 8 A 




B 

>JPi 

000^68 

0144 

1E26 



CONI 

ADV 

SRI,sX»26* 

000369 

0146 

8055 




10 

s$R3,=SRl 


0146 

0051 






00037U 

oi4 r 

C835 




LDR 

SR4,=$R5 

000371 

0148 

D570 

FFOO 



AND 

$R5 , = Z•FFOO * 

00037* 

014 A 

D970 

3100 



CMR 

SR5,sZ»3100» 

000373 

014C 

090C 




bt 

>C0N2 

000374 





* 



000373 





JP1 

CALL 

ZV$ER,$,tkMGI 


0140 

FbCO 

0003 






014F 

D380 

0000 

X 





0131 

0F80 







013* 

014D 







0133 

1583 






000376 

0134 

0F8O 

0115 



B 

< R S T 

000377 





* 



00037b 

0136 

8735 



NODEVF 

CL 

= 3>R3 

000379 

0137 

0003 




R T T 



NO ERROR FOUNu IN MLCC 


CHECK FIRST I I ME FLAG 
BRANCH IF NOT FIRST TIME 


INSERT FIRST TIME THRU HALT 
BECOMES NOP AFTER FIRST lIME 
BYPASS ZVSRD 


BRANCH IF NOT FIRStl TIME 
PEFAULI FREQ IS 60 


INPUT FREQUENCY 


strip iQ channel number only 
SET UP FOR trap ON 
UNAVAILABLE RESOURCE 


COMPARE CHANNEL WITH HEX 3C0 
BRANCH IF GREATER 
CHANNEL NUMBER TO SMALL 
PUT FUNCTION IN 
INPUT UEVICE NUMBER 


COMPARE UEVICt. NUMBER RESPONSE 
MLCC NUT FQuNu ON THIS AUORESS 


TRAP HANULER ROUTINE 


0138 FBCO 0003 
013a 0380 0000 

015C OF 60 
013D 14AD 


PREPARE ACTIVE LINE TABLE 


C0N2 CALL *V$F,ATLT,ALLQNE,Ci6 



6 


TITLE DCMCI 

•REV. 

A* 






015E 

14A6 







015F 

14A9 






0UO387 

0160 

6700 

14C9 



CL 

<CH-CT 

000388 

0162 

6700 

14BD 



CL 

<I MASK 

000389 





* 



000390 

0164 

D854 




LDR 

SR5*=$R4 

00039i 

0165 

B85 1 




LDR 

SR3*=$kl 

000392 

0166 

B570 

Q3C0 



AND 

SR3 * = X * 3C0 • 

000393 

0166 

3046 




SOR 

*R3,6 

000394 

0169 

9570 

FC3F 



AND 

SR 1 * =Z• FC3F * 

00039b 

016b 

DF 30 

14AD 


C0N2A 

STK 

$R5 * <ATLT*SR3 

000396 

016D 

BFOO 

14CD 



STR 

$R3»<TPR 

000397 

016F 

D970 

3178 



CHK 

$R5*=X*3178» 

000398 

0171 

0960 




bNt 

>C0N2C 

000399 





* 



00040U 





* READ 

EXTENDED ID 

000401 





* 



000402 

0172 

C651 




LDR 

SR4,sSRl 

000*03 

0173 

4E02 




ADV 

SH4,=2 

000404 

0174 

C380 

1173 



LNJ 

$B4,<CGSCH 

00040b 

0176 

8055 




IU 

=$R5*=$R4 


0177 

0054 






00040o 

0178 

0703 




biOT 

>$+2+SAF 

000407 

0179 

F 380 

125C 



LNJ 

SB7* <tRRQR 

000408 

017b 

DF 30 

14AD 



STR 

SR5 *<ATLT * $R3 

000409 

017D 

3B6Q 

01A1 



bUDD 

SR3 ♦ <CUN2C 

000410 






CALL 

ZVSTCiIDMSG 


017F 

PBCO 

0003 






0181 

D380 

0000 

X 





0183 

OF 60 







0184 

1570 






000411 

0185 

3041 




SgK 

SR3 *i 

000412 

0166 

bFOO 

2BAA 



STR 

SK3 *<RTB 

000413 






CALL 

ZV$TD»RTb 


0186 

FBCO 

0003 






0 1 6 A 

D380 

0000 

X 





018C 

OF 80 







016D 

2BAA 






000414 

016E 

B80Q 

14CD 



LDR 

SR3,<TPR 

00041b 






CALL 

ZVSTiEQ 


0190 

FBCO 

0003 






0192 

D380 

0000 

X 





0194 

OF 60 







0195 

1574 






000*1c 

0196 

5046 




SUK 

SR5*6 

000*17 

0197 

D 470 

3100 



OR 

SR5,sZ»3I00» 

000416 

0199 

DFOO 

14CD 



STR 

SR5,<TPR 

000419 






CALL 

ZV$1H«TPR 


019B 

FbCO 

0003 






019D 

D360 

0000 

X 





019F 

0F80 







01 AO 

14CD 






000420 

0 1A1 

8930 

14bD 


C0N2C 

LoT 

<1 MASK•$k3 

000*21 

01 A3 

8 AD3 



C0N2B 

INC 

-Ski 

000*24 

01A4 

3D10 




CMV 

SR3 * -16 

000423 

01A5 

0909 




bt 

>CUN3 

000424 

01A6 

C851 




LDR 

*R4,=$kl 

00042b 

01A7 

C380 

1173 



LNJ 

SB4,<CGSCH 

000426 

01A9 

8055 




10 

=SK5*=SR4 


01AA 

0054 






000427 

OlAb 

0701 

FFbF 



biOT 

C0N2A 

000426 

01 AD 

OFF 6 




b 

>C0N2b 

000429 





* 



000430 





# 



000431 

0 1 At 

2CF5 



C0N3 

LDV 

SK2,=-11 

000432 

OiAF 

D680 

1567 



LAb 

*B5,<C0NTl+ll 

000433 

Olbl 

C87Q 

003F 


ALL 

LDR 

SR4,=X«3F* 

000*34 

01 b3 

9570 

FCOO 



AND 

SR I * = 2 • FCOO 1 

00043b 

oibb 

9 FOG 

14C3 



STK 

Ski ,<MLCADD 

000436 

0 lb/ 

C525 




AND 

SR4♦ Sb5 •SK2 

000437 

oib8 

9454 




OR 

SRl»=$R4 

000436 

01 b9 

9F25 




STK 

$R 1» SB5•$R2 

000439 

OlbA 

27F7 




bINC 

$R2 *>ALL 

000440 

Oibb 

OF&O 

01CA 



b 

<BKK 1 

000441 





* 



000444 





* 



000443 





* 



00044* 





* 



00044b 





* 



000446 

oibd 

9800 

0IC9 


STLOOP 

LDR 

SR 1 * <NOp 

000447 

OlbF 

9F00 

OOFF 



STR 

SHIkSTOP 

000446 

oici 

8700 

14AB 



CL 

<LOUP 

000449 

01C3 

8700 

1549 



CL 

<SEC 

000450 

01C5 

8700 

154A 



CL 

<TTuT 

000451 

01C7 

0F80 

01CA 



b 

<BKK 1 

00045^ 





* 



000453 





* JUMP 

TAbLE 

FOLLUWS. THIS i 

000454 





* 



000455 





* 



000456 

01C9 

0FQ3 



NOP 

NUP 

>BKK3 

000457 

01CA 

A360 

02 IE 


BKK1 

LNJ 

$B2 »<RGNT 

000*56 

01CC 

A380 

02D6 


BKK3 

LNJ 

SbZi<CCBRT 

000459 

0 ICE 

A380 

0355 


BKK4 

LNJ 

SB2*<MEMT 

000*60 

0 IDO 

A380 

0470 


BKK4B 

LNJ 

SB2 t<LCTOB 

000461 

01D2 

A380 

0539 



LNJ 

Sb2 *<SI TEST 

000462 

01D4 

A380 

0639 



LNJ 

SB2 *<INSTT 

000463 

Q1D6 

A38Q 

06B5 


BKK 7 

LNJ 

SB2,<INC0NT 

000464 

01D8 

A380 

0815 


BKK 7 b 

LNJ 

$B2 *<STIORC 

000465 

0 IDA 

A380 

0C39 



LNJ 

SB2 * <INST1 

000466 

01DC 

A380 

OCEF 


BKK9B 

LNJ 

$b2»<DSST 

000467 

0 IDE 

A380 

0E3F 


BKK 10 

LNJ 

SB2 »<SIT ST 

000466 

01E0 

A380 

086E 


BKK7C 

LNJ 

Sb2,<KC0 

000469 

01E2 

A380 

08BC 


BKK7D 

LNJ 

S62 «<TRANI 

000470 

01E4 

A380 

0436 


bKK4A 

LNJ 

$B2i<MNKT 

000471 

01E6 

A380 

05B7 


BKK 5 

LNJ 

SB2 » <CHPGT 

000472 

01E6 

A380 

0AD6 



LNJ 

SB2,<CRCT 

000473 

OiEA 

A380 

OBBC 


BKK9 

LNJ 

SBZ»<0T PT 

000474 

01 EC 

A380 

06ED 


BKK7A 

LNJ 

SB2,<IZTST 

000475 






CALL 

ZV$T • ZVSTC * DO* 


01 EE 

FBCO 

0003 






01F0 

D380 

0000 

X 





01F2 

0F80 







01F3 

154F 







PAGE 


CHANNEL COUNT 

SET LINE MASK WORD TO 0 


STRIP SR3 TO SUBCH, NUMbER 

STRIP JO CONTROL WORD W1IHOUT SUBCH* 
STORE ID IF SuBCH. PRESENT 


FORM FC FOR EXT ID 


INPUT EXlEND ID WAS NAK’tD 
LINE 

GET LINE NUMBcR 
NUMbER 


GET BACK CHANNEL 
EQUALS 


ALIGN tXIENDE p ID 
PUT IN MLCP ADDRESS 

PRINT ID 


SET MASK WORD OF ACTIVE LINES 
SEE IF ALL SUuCH* TESTED 

INPUT ID 


NUMbER OF I/O TO bE CHANGED 

PUT ADDRESS OF CONTROL TABLE IN $B5 

LOAD MASK TO CLEAR CHANNEL 

CLEAR SUBCH* FUNCTION 

STORE MLC ADDRESS 

CLEAR CHANNEL 

PUT CHANNEL NjMbtR IN 

STOKE IT BACK IN CONTROL TAbLE 


NO HAL IS AFTER FIRST PASS 
SET LOUP COUNT TO 0 
CLEAR SECONDS COUNTER 
CLEAR JIME TOTALIZER 


CONTROL SECTION OF THE PROGRAM. 


LABLt 


DESCKl'PTION 


A - GO TO RANGE TEST 
B - GO TO CCB READ TEST 
C - GO TO MEMORY TEST 
E - GO TO OUTPUT BYTE AND LCT TEST 
SI - SOFT INITIALIZE TEST 

GO TO INSTRUCTION TEST 
H - OUTPUT INTERRUPT CONTROL TEST 
K - STOP I/O TEST 
R - FIRST INTERRUPT TEST 
S - DA IA SET SCAN TEST 

T - deferred interrupt test 

L - RELIEVE TtST 

M - TRANSMIT TEST 

C - GO TU MEMORY NAK TEST 

F- GO TO CHANNEL PROGRAM TEST 

GO TO CRC TEST 

GO TO OUTPUT TEST 

CHANNEL INITIALIZE TEST 
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0U0476 

01F4 

OF 8 1 

FFOA 



b 

STOP 



OOU477 






CALL 

ZVS UZV*TC*DONE 




01 Fb 

FBCO 

0003 








01F b 

0380 

0000 

A 






■ 

01 Fa 

OF 80 








. ,, 

01 FtJ 

1578 








^ OOU47b 

OlFL 

OF 81 

F F 02 



b 

STOP , 



0U0479 

G X F L 

0000 




hlt 




000480 





* 





000481 





* ACCUMULATE 

TIMt 



000482 

01FF 

9800 

1549 



LOR 

SR 1»<SEC 

GET NUMBtR OF SECONDS 


000483 

0201 

9970 

00B4 



CMR 

SRI i = 180 

CHECK IF 3 M1n 


000484 

0203 

0287 




BGE 

>PSHT 

BRANCH MtANS > OR ; 3 MIN 


000485 

0204 

0F80 

OiCC 



b 

<bKK3 



00048o 






CALL 

2VSPCH 




0206 

FI3F0 

0001 








0208 

0380 

0000 

X 






000487 





PSPT 

CALL 

2VSTC*PASMSG 




OcOA 

FBCO 

0003 








020C 

0380 

0000 

X 







020t 

OF 80 









02 OF 

021b 








00048b 

0210 

8A80 

14AC 



1 NC 

<PASS 

INCREMENT PASS COUNT 


000489 

0212 

9800 

14AC 



LOR 

SR 1 ♦ <PASS 



000490 

0214 

1001 




CMV 

SKI . = 1 



000491 

0215 

0980 

0100 



biNit 

<STkT 

NOT FIKS7 PASS 


000492 

0217 

8700 

OOFF 



Cl 

<ST UP 

FIRST PASS 


000493 

0219 

OF 80 

OOFF 



b 

<STuP 



000494 

021b 

5041 

5353 2024 


PASMSG 

TEXT 

•PASS $• 



00049J? 





* 





000497 





* 





000498 





* 

RANGE TEST 



000499 

02 It 

9870 

4120 


RGNT 

LOR 

SK1*=A*A • 



000i>00 

0220 

9FOO 

1581 



5TK 

SRI *<EKMG+1 



000501 






CALL 

Z V $ T•2VsTC»TSTA 




0222 

FBCO 

0003 








0224 

0380 

0000 

X 







0226 

OF 80 









0227 

1590 








000t)0<i 

0228 

9380 

OF 18 



LNJ 

SB1»<INT1T2 

INITIALIZE TRAP ♦ RUPT ERROR VECTORS 

0005)03 

022A 

6C01 




LUV 

SR6,=1 

INITIALIZE RANGE 


0005)04 

022b 

C3bO 

10FC 



LNJ 

SB4,<GEN1TZ 

GENERAL INITIALIZE TO MLCC 

0005)05? 





* 





0005)06 

0220 

9870 

0300 



LOR 

SRI i = X*300» 

LOAO IMGA WITH HEX 3 OO 


0005)07 

022F 

9F00 

14DA 



SIR 

SRI»<IMGA*(SAF-1) 



0005)08 

0231 

8751 




Cl 

= $R 1 

CLEAR SRI 


0005)09 

0232 

6753 




CL 

= SR3 

FIRST CHANNEL 


0005)10 

0233 

C380 

1OEC 


NXCH 

LNJ 

SB4,<FLN 

FINO LINE ON 


0005)1 1 

0235 

OF A3 




b 

>JMPtXT 

GO 00 SECOND HALF OF TEST 


0005) 12 





* 





0005)13 

0236 

4C0A 




LOV 

SR4,=10 



0005)14 

0237 

CAOO 

1549 



AOO 

SR4,<SEC 

UPDATE TIME* 10 SEC/CHAN 


0005)15 

0239 

CFOO 

1549 



STR 

SR4 «<SEC 



000516 

023b 

C800 

155C 


NXKG 

LOR 

$R4,<C0NT1 

LOAD SK4 WITH I/O CONTROL 

WORD 

* 000517 

0230 

C380 

1173 



LNJ 

SB4,<CGSCH 

PUT CHANNEL IN I/O CONTROL 

. WORD 

§ 000518 

023F 

81C6 

129A 



1ULD 

*1MGA*=SR4,sS^6 

OUTPUT ADDRESS AND RANGE 


1 

0241 

0054 








^. 

0242 

0056 








00U5) 1 9 

0243 

0703 




6107 

> 1OT 1 



000520 

0244 

F 360 

125C 



LNJ 

SB7,<ERR0R 

I/O TRANSFER uID NOT TAKt 

PLACE 

0005)21 





* 





000522 

0246 

4E06 



I0T1 

AOV 

SR4,=6 

OUTPUT CCB CONTROL FIELD 


000523 

0247 

8070 

0000 



IU 

= 0 * sSR4 




0249 

0054 








000524 

024A 

0703 




blOT 

>$*2*SAF 



000525 

024ci 

F380 

125C 



LNJ 

SB7 *<ERROR 



000526 





# 





000527 

0240 

C800 

155F 



LOR 

$R4,<C0NT4 

INPUT NX! STA1 TO ADVANCt 

POINTER 

000528 

024 F 

C380 

1173 



LNJ 

SB4 t <CGSCH 



000529 

0251 

8040 

1275 



lu 

DUMMY*s$R4 

INPUT NX 1 STA7 



0253 

0054 








000530 

0254 

OF 85 




b 

>1073 



000531 

0255 

F380 

125C 



LNJ 

SB7,<ERR0R 

INSTRUCTION WAS NAqcED 


000532 

0257 

OF 62 




b 

>1073 



000533 

0258 

OF 96 



JMPEXT 

B 

>SCCBTS 



000534 





* 





000535 

0259 

C600 

1550 


1QT3 

LOR 

SR4,<C0NT2 

LOAD $R4 WITH I/O CONTROL 

WORD 

000536 

025b 

C380 

1173 



LNJ 

SB4 * <CGSCH 

I/O CONTROL WORD In SRA 


000537 

0250 

8055 




10 

=$R5*=$R4 

INPUT RANGE 



0251 

0054 








00053b 

025 F 

0703 




BIOT 

> 10T2 



000539 

0260 

F 3 8 0 

125C 



LNJ 

SB7»<ERROR 

1/0 TRANSFER 010 Not TAKt 

PLACE 

000540 

0262 

8955 



1QT2 

CMR 

SR6»sSR5 

COMPARt OUTPUT RANgE WITH 

INPUT RANGE 

000541 

0263 

0988 




BNE 

>RGt 

NOT EQUAL BRANCH T§ RGE 


000542 





X 





000543 





* 





000544 

0264 

t A70 

OOOA 


kgnti 

AOO 

$R6 » s2•OOOA• 

SET FOR EXT RANGE 


000545 

0266 

0680 

023b 



BCF 

<NXRG 



000546 

0268 

8AD3 




INC 

= $R3 

AOO ONE 70 CHANNEL 


000547 

0269 

OF 60 

0233 



b 

<NX^H 

BRANCH TU NXCH 


000548 





* 





000549 

026b 

F380 

125C 


RGE 

LNJ 

SB /1<tRROR 

range error 


000550 

0260 

OF F 7 




b 

>RGnT1 

continue testing 


000551 





* 





000552 





* TEST 

CCB»S 

OON•T OVERWRITE EACH 

OTHER 


000553 





* 





000554 

026t 

C360 

10FC 


SCCBTS 

LNJ 

SB4*<GENITZ 

GENERAL INITIALIZE 


000555 

0270 

2C01 




LOV 

SR2 *s 1 

INITIAL DATA 


000556 

0271 

F870 

0200 



LOR 

$R 7 *~X•200• 

DATA FOR CONTROL FLAG 


00055/ 

0273 

8753 




CL 

= $R3 



000558 

0274 

C380 

1QEC 


NLINE 

LNJ 

SB4t<FLN 



000559 

0276 

OF A2 




B 

>RCCBS 

NO MGRt LINES 


000560 

0277 

1CFC 




LOV 

SKI»=-4 

COUNTS 4 CCB•S 


000561 

0278 

C800 

155C 


NXTCCb 

LOR 

SR4 » <CONT1 

IOLD FUNCTION COPE 


000562 

027A 

C380 

1173 



LNJ 

SB4•<CGSCH 

FORM I/O CONTROL WORD 


000563 

Q27C 

81C8 

1250 



10L0 

*IMGA*s$R4*=$*2 




027t 

0054 









027F 

0052 








m 

m 000564 

0280 

0703 




BIOT 

>$*2*$AF 



00056 5 

0281 

F380 

125C 



LNJ 

SB7* <ERROR 

IOLD WAS NACKEO 


000566 

0283 

4E06 




AOV 

$R4 » s6 

FORM CCB CONTROL WORD 


000567 

0284 

8057 




10 

=$R7f=$R4 

OUTPUT CONTROL FLAG 
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• REV • 

A* 
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0285 

0054 







000568 

0286 

0703 




BIOT 

>$+2+$AF 


000569 

0287 

F380 

1H5C 



INJ 

$B7,<ERR0R 


000570 

0289 

8A02 




INC 

= $R2 

BUMP FUR NEXT RANGE /T % 

000571 

028A 

FA70 

0100 



ADD 

SR7,5X*100» 

FORM NEXT CONTROL WORD 

000572 

028C 

17EC 




BINC 

$RI *>NXTCCB 

BRANCH MtANS THIS CHAN NOT DONE 

000573 

0280 

C270 

0006 



SUB 

$R4 * :=Z ’0006 * 


000574 

02 8 F 

81C8 

124A 



IOLD 

*IMGA♦=$R4*=$R2 

GIVE A 5TH IOLD 


0291 

0054 








0292 

0052 







000575 

0293 

0783 




BIQF 

>$+2+SAF 

IT SHOULD BE NAK'ED 

000576 

0294 

F 380 

125C ~ 



LNJ 

$B7 * <ERROR 

5TH IOLD WASN’T NAk*ED 

000577 

0296 

8A03 




INC 

*$R3 

BUMP CHANNEL LINE 

000576 

0297 

OFOD 




B 

>NL 1NE 


000579 





* 




000580 





* READ 

RANGES 

SET UP 


000581 





* 




000582 

0298 

2CQ1 



RCCB5 

LOV 

$R2*=I 

INITIAL DATA 

000583 

0299 

F870 

0200 



LOR 

$R7,=X’2Q0» 

DATA FUR STATUS 

000584 

029b 

8753 




CL 

= $R3 


000585 

029C 

C380 

10EC 


NL1 

LNJ 

$B4,<FLN 

FIND LINE NUMoER 

000586 

029E 

8382 




JMP 

$62 

ALL DONE* EXIT TEST 

000587 

02 9 F 

1CFC 




LOV 

$Rl,*-4 

COUNTER FOR 4 CCB’S 

000588 

02 AO 

C800 

155F 


KNXR 

LOR 

$R4,<C0NT4 


000589 

02A2 

C380 

1173 



LNJ 

$B4,<CGSCH 

FORM IU CONTROL WORD 

000590 

02A4 

8040 

1222 



ID 

DUMMY♦s$R4 

INPUT NEXT STATUS 


02A6 

0054 







000591 

02 A 7 

0703 




BIOT 

>$♦2+$AF 


000592 

02 A8 

F 380 

125C 



LNJ 

$B7«<ERK0R 

INPUT NX 1 STATUS WAS NAK’ED 

000593 

02 AA 

C600 

1550 



LOR 

$R4,<C0NT2 


000594 

02 AC 

C380 

1173 



LNJ 

$B4 * <CGSCH 

FORM IU CONTROL WORD 

000595 

02 AE 

8055 




10 

= $K5 » = $R4 

INPUT RANGE 


02 AF 

0054 







000596 

0280 

0703 




BIOT 

>$+2+$AF 


000597 

02B1 

F380 

125C 



LNJ 

$B7«<tRROR 


000598 

02b3 

E852 




LOR 

$R6*=$K2 

GET SHOULD-BE DATA TO R6 

000599 

02b4 

0956 




CMR 

$K5«=$K6 


000600 

0*b5 

0903 




BE 

>$4>^4$AF 


000601 

02b6 

F 380 

125C 



LNJ 

$B7,<ERRUR 

RANGE READ IN IS WRONG 

000602 





* 00 AN INPUT 

STATUS* IF IT ADVANCES THE INPUT POINTER A FAILURE WILL RESULT* 

000603 

02ba 

C800 

1561 



LOR 

$R4 * <CQNT6 

INPUT STATUS CFUNCTION 

000604 

02bA 

C380 

1173 



LNJ 

$B4 * <CGSCH 

FORM 1/0 CONTROL WORD 

000605 

02bC 

8055 




10 

=$R5*=$R4 

INPUT STATUS 


02B0 

0054 







000606 

C2BE 

0703 




BIOT 

>$ + 2 + $AF 


000607 

02BF 

F 380 

125C 



LNJ 

$B7,<ERRUR 

INPUT STATUS *AS NAK’ED 

oooaoa 

020 

E857 




LuR 

$R6,=$R7 

GET SHUULO BE DATA TO R6 

000609 

02C.2 

0956 




CMR 

$R5t-$R6 


000610 

C2C3 

0903 




BE 

>$*2+$AF 


000611 

02C4 

F380 

125C 



LNJ 

$B7t<ERROR 

STATUS RtAD In INCORRECTLY 

000612 





* 




000613 

02C6 

8 A02 




INC 

= $R2 

BUMP RANGE 

000614 

0<lC1 

FA70 

0100 



AOO 

$R7,=X*0100» 

FORM NEXI STA1US 

000615 

02C9 

1707 




BINC 

$R1,>KNXR 

READ NEXI RANgE 

000616 





* 




000617 





*EGIVE 

A 5 T H 

INPUT NEXT STATUS AND 

CHECK ITS NAK’ED 

000618 





* 




000619 

02CA 

C800 

155F 



LOR 

$R4 »<C0NT4 

FORM I/O CONTROL 

000620 

02CC 

C380 

1173 



LNJ 

$B4i<CGSCH 

WORD FUR INPUI NEXT STATUS V A 

000621 

02CE 

8055 




10 

=$R5»=$K4 

SHOULD Bt NAK’ED 


02CF 

0054 







000622 

0200 

0783 




BiOF 

>$♦2 + $AF 


000623 





* 




000624 

02D1 

F 380 

125C 



LNJ 

$B7,<ERR0R 

INPUT NEXT STATUS NOT NAK’ED 

000625 





* 




000626 

0203 

8A03 




INC 

= $R3 


000627 
0 0 

0204 

OFbl 

FFC7 



B 

NL1 

FIND NtXl LINt NUMBER 

OOvUtO 

000629 





* 




000630 





* 




000631 





* 




000632 





* 

CCB REAO TEST - TESTS 

OUTPUT UF CCB 6 BLOCK READ 

000633 





* 




000634 





* 




000635 

0206 

9870 

4220 


CCBRT 

LOK 

$R 1 * = A • b • 


000636 

0208 

9F00 

1581 



STR 

$Rl,<ERMG-fI 


000637 






CALL 

ZV$T*2V$TC,TSTB 



020A 

FbCO 

0003 







020C 

0380 

0000 

X 






020t 

0F80 








02 OF 

1597 







000638 

02E0 

8753 




CL 

= $R3 


000639 

02 E1 

C380 

10FC 


NXCb 

LNJ 

$B4 * <GENITZ 

GENERAL INITIALIZE 

000640 





* 




000641 

02E3 

9800 

140C 



LOR 

$Rl»<SbCK+$AF-l 

GET ADDRESS CONSTANT LSb 

00Qo42 

02E5 

9F00 

1400 



STR 

$R 1 * <SBCCB 


000o43 

02E7 

8751 



NXCB1 

CL 

= $R l 

CLEAR INDEX FuR OUTPUT AOORtSS 

000644 

02 ta 

8700 

14E1 



CL 

<MASK 

LOAD ZERU INTO MASK 

000645 

02EA 

4C08 




LOV 

$R4 * = 8 

LOAD $K4 WITH BYTE RANGE OF CCB 

000646 

02Eb 

CFOO 

1405 



STR 

$R4,<RANGE 


000647 

02Eu 

5C04 




LOV 

$R5 * =4 

LOAD RANGEW WITH WORD RANGE OF CCB 

000648 

02EE 

OF 00 

1407 



STR 

$R5 »<KANGEW 


000649 

02FO 

C380 

10EC 



LNJ 

$B4,<FLN 

FIND LINt ON 

000650 

02 F 2 

8382 




JMP 

$B2 

NO LINt UN JUMP OUT OF TEST 

000651 

02F3 

bFOO 

2BAA 



STR 

$R3*<RTb 

Rt-INI1IALIZE RTB 

000652 

02F5 

bFOO 

26AB 



STR 

$K3,<KTB+1 


000653 

02 F 7 

bFOO 

2BAC 



STR 

$R3 »<RTB-*-2 


000654 

02 F 9 

BFOO 

2BA0 



STR 

$R3*<RTB+3 


000655 





* 




000656 

02Fb 

0853 




LOR 

$R5*=$R3 

FIND ADDRESS FOR BLOCK RLAD 

000657 

02 F C 

5F20 




ML V 

$R5,=X’20* 

R5 s CHAN X 20 

00065b 

02F0 

DA70 

1210 



ADO 

$»R5 * = X ’ 12 10 1 

LOCATION OF CcB TO READ 

000659 

02 FF 

BFOO 

14C0 



STR 

$R3,<7PR 

STORE CHAN NUMB 

000660 

0301 

3B03 




bEVN 

$R3*>CBKT3 

BRANCH IF REAu 

000661 

0302 

8803 




DEC 

= $R3 

FORM READ CHANNEL 

000662 

0303 

5EF8 




AOV 

$R5,=-8 

FORM CCB ADDRESS For WRITE CHANNEL 

000663 

0304 

BFOO 

0354 


CBRT3 

STR 

$R3i<KEAO 

STORE READ CHANNEL 

000664 

0306 

DFOO 

0300 



STR 

$R5,<CBRT1 

A ^ 

000665 

0308 

C800 

1405 



LOR 

$R4,<KANGE 


000666 





* 




000667 

G30A 

C380 

1189 



LNJ 

$B4 * <MCCB 

FORM CCB FOR BLOCK READ 

000668 

030C 

2BAA 




DC 

<R T b 


000669 

0300 

0000 



CBRT1 

DC 

X’0« 

RAM ADDRESS Tu READ 
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000t>70 





# 




000671 

000672 

030E 

6800 

14CD 


* 

LOK 

$K3 * <TPR 

GET CHANNEL UNDER TEST 

000673 

0310 

C800 

1405 



LDR 

$K4,<KANGE 

FORM CCB TO RfcAD BACK 

000674 

0312 

C380 

1189 


NXC62 

LNJ 

$64 * <MCC6 

000676 

0314 

1547 




OC 

<RMiNST 


000676 

000677 

0315 

55AA 



* 

DC 

X 1 55AA * 


000676 

0316 

6800 

0354 


NXCB3 

LDK 

$K3 *<KEAD 

GET READ CHANNEL NUMBER 

000679 

0318 

C800 

1562 



LDR 

$R4,<C0NT7 

LOAD $K4 WITH I/O CONTROL WORD 

000680 

031A 

C380 

1173 



LNJ 

$64,<CGSCH 

PUT I/U CONTROL WORD IN $R4 

000681 

031C 

8070 

0800 



10 

= X»800» *s$K4 

READ BLOCK IN FROM MLCC 


031E 

0054 






000682 

03 IP' 

0703 




blOT 

>$+2+$AF 


000683 

000684 

0320 

F380 

125C 


# 

LNJ 

$6 7 * <ERKOR 


000686 

000686 





* READ 

# 

BACK 

STATUS AFTER BLOCK 

READ TO MAKE SURE IT'S CORRECT. 

000687 

000688 

0322 

C380 

1205 


# 

LNJ 

$64 * <DLAY 

TIME DELAY 

000689 

0324 

C360 

1161 



LNJ 

$64,<1NXT 

INPUT NEXT STATUS 

000690 

032t> 

E870 

1000 



LDR 

$R6,=X»1000* 

SHOULD BE STATUS. CCB COMPLETE ON. 

000691 

0328 

0956 




CMR 

$R5,=$R6 

000692 

0329 

0903 




bt 

>$+2*$AF 


000693 

032 A 

F 380 

125C 



LNJ 

$67,TERROR 

STATUS WRONG AFTER BLOCK READ 

000694 

000696 

000696 

032C 

6800 

14C0 



LDR 

$R3,<TPR 

GET BACK CHANNEL UNDER TtST 






CALL 

ZV$C*SbCCb*RT8*MASK*RANGEW*tRAR 


0321 

FBCO 

0003 







0330 

0380 

0000 

X 






0332 

OF60 








0333 

1400 








0334 

26AA 








0335 

14E1 








0336 

1407 








0337 

14E3 







000697 

0338 

89C0 

11AA 



CMZ 

ekak 

IF ERROR HALT 

000698 

033A 

090F 



bt 

>NOtK1 

000699 

033b 

C800 

0300 



LDR 

$R4,<C6RT1 

STARTING LOCATION OF CCB IN RAM 

000700 

033U 

0800 

14E5 



LDR 

$R5 »<ERAR*2 

000701 

033F 

E800 

14fc4 



LDK 

$R6, <ERAK-f 1 


00070c 

0341 

F 800 

14E3 



LDK 

$R7,<ERAR 


000703 

0343 

F 380 

125C 



LNJ 

$67,<tKR0R 

BLOCK READ ERROR 

000704 

0345 

F6F0 

0001 



CALL 

2V$CU 

CONTINUE LOOKING F‘OR BLOCK READ ERROR 


0347 

0380 

0000 

X 





000706 

0349 

8980 

14AA 


N0ER1 

CM2 

<FRST 

CHECK IF FIRST TIMg THRU 

000706 

034b 

0981 

0003 



BNt 

BLUo 

000 707 

0340 

C380 

26C0 



LNJ 

$B4,<PREV 

PRINT FIRMWARE RtVlSIQN 

SET FIRST TIME FLAG 

000706 

034P 

8A80 

14AA 


blue 

INC 

<FKST 

000709 

000710 

0361 

8AP3 



* 

Inc 

= $R3 

INCREMENT CHAnNEL NUMBER 

000711 

000712 

0352 

OF 80 

02E1 


* 

b 

<NXCb 


000713 

000714 

0354 

0000 



KEAD 

DC 

0 

READ CHANNEL bTORtp HERE 

000716 





* 




000716 





* 




000717 





* 




000716 





* 




000719 





* 

MLCC MtMORY TEST 


000 720 





* 




000721 





* 




000722 

0356 

9870 

4320 


MtMl 

LDK 

$K1,=A•C * 


000723 

0357 

9F00 

1581 



SIR 

$R1*<EKMG*1 


000724 

0359 

FBCO 

0003 



CALL 

ZV$UZV$TC»TSTC 



035b 

0380 

0000 

X 






0350 

0F80 








0351 

16A2 







000/26 

035F 

8700 

14E1 



CL 

<mask» 

INITIALIZE MASK FOr COMPARISON 

GENERAL INITIALIZE 

000726 

000727 

0361 

C380 

10FC 


* 

LNJ 

$64,<GENIT2 


000726 

0363 

C870 

5555 



LDK 

$R4,sX 1 5555 * 

INITIALIZE MAkSI FOR RETURN BLOCK 

000729 

0365 

CFOO 

14E2 



SIR 

$R4,<MASK1 

000730 

0367 

8753 




CL 

= $R 3 

FIND LiNt ON 

000/31 

0368 

C380 

10EC 


MEMTA 

LNJ 

$64,<F LN 

000732 

000733 

036A 

8382 



# 

JMP 

$62 


000734 

036b 

3600 

036F 



btVN 

$R3,<MtMT 6 

TEST QN A LINE* NOj CHANNEL BASIS 

000736 

0360 

8A03 




INC 

= $R3 

000736 

0360 

OFFA 




b 

>MEMTA 

FIND NtX! LINE 

000737 

036P 

8751 



MEMTB 

CL 

s$R 1 

CLEAR INDEX FoR OUTPUT ADDRESS 

000736 

0370 

8754 




CL 

= $R4 

000739 

0371 

E380 

0380 



LNJ 

$B6,< TESM 

TEST MEMORY WiTH ALL BITS NUT SET 

000740 

0373 

4CFF 




LDV 

$K4,=-1 

0O0741 

0374 

E380 

0380 



LNJ 

$66,<TESM 

TEST MtMORY WiTH All BITS StT 

000742 

0376 

C870 

0110 



LDR 

$R4,sX»110* 

TEST MEMORY 6Y FLOATING A 

ONE THROUGH A FIELD OF ZtKOS 

000743 

0378 

E380 

0380 



LNJ 

$66,< T ESM 

000744 

037 A 

C870 

FEEF 



LDR 

$K4,«2* FEEF' 

TEST MtMORY BY FLOATING A 

000745 

037C 

E380 

0380 



LNJ 

$66,<TESM 

ZERO THROUGH m FIELD OF ONE'S 

000 746 

037t 

8A03 




INC 

= $R3 

SET FOR NEXT CHANNEL 

000747 

000746 

037F 

0FE9 



* 

b 

>MtMl a 

TRY NEXT LINE 

000749 





* 




000760 

0380 

2C01 



TESM 

LDV 

$K2 , = 1 

INITIALIZE $R2 

000751 

0381 

E870 

0300 



LDR 

$R6,^X'300 * 

LOAD NUMBER OF WORDS INTO RANGEW 

000752 

0383 

tFOO 

14D7 



STR 

$K6, <KANGEW 

000753 

000754 

0386 

8700 

14D8 


* 

CL 

<KAMAD 

INITIALIZE RAM ADDRESS - 

000755 

000756 

0387 

9380 

0411 


* 

LNJ 

$61,<SET 

FILL RtAD AREA WITH SET HAT 1ERN 

000757 

0389 

DB80 

lEBb 



LAb 

$63,<SDB 

LOAD $63 WITH ADDRESS OF SUB 

00075o 

038b 

E800 

1407 



LDR 

$K6,<RANGEW 

INITIALIZE LOUP CU UNTE R 

000759 

0380 

8256 




NEG 

«$R6 

000760 

038L 

CF 73 



FILL 

STR 

$R4,♦$63 

STOKE HA 1 TERN INTO SDB 

000761 

038P 

4011 




SCL 

$K4 , 1 

ROTATE TO FORM FULL PATTERN 

000762 

000763 

0390 

67FE 



* 

bi NC 

$K6 »>FILL 


000 764 

0391 

bFOO 

14CF 



STK 

$R3♦<TEMPI 


000765 

0393 

BPOO 

14CD 



STR 

$K3,<I PR 


000766 

0395 

3685 




bODD 

$R3,>MTM6 

FIND WRITE SUbCH. 

000767 

0396 

8A80 

14C0 



INC 

< T PR 
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000766 

0396 

btOO 

14CD 


SWK 

$K3,<T PR 


000769 

039A 

9380 

1069 

MTM 6 

LNJ 

$B1 1 <BDAT A 

bLOCK WRITE DATA PATTERN TO RAM 

000770 

039C 

lEbb 



DC 

<5Dd 


000771 

0390 

0600 



DC 

A * 600• 


00077c 

039E 

0200 



DC 

A ’200 * 

RAM ADDRtSS 

000773 

039F 

8000 



DC 

2•8000• 

EVEN BYTE ADDRESS, 250 MB DELAY 

000774 




* 




000776 




* 




000 776 

03 Au 

dEOO 

14CP 


S W K 

$K3 , < TPR 

GET READ SOBCh. 

000777 

03A2 

9380 

1098 


LNJ 

$B1*<RDAIA 

READ DATA PATiERN FROM RAM 

00077b 

03A4 

25AA 



DC 

<RT 5 


000779 

03A5 

0600 



DC 

X• 6 u 0 * 


000780 

03A6 

0200 



DC 

X •200 * 

RAM ADDRESS 

000781 

03 A 7 

6000 



DC 

2*8000* 

tVEN BYTt, 250 MB DELAY 

00078C 




# 




000783 




* 




000784 

03A8 

9380 

041A 


LNJ 

$Bl*<CkWb 

COMPARE READ AND WRITE BLOCKS 

000786 

03 AA 

C870 

0300 


LDR 

$R4,=/66 

NUMBER OF BYTlS to ccb area 

000786 

03AC 

Cf-QO 

14D7 


BTR 

$R4,<KANGEW 


000 787 




* 




000788 

03AE 

5E00 

140) 


BwR 

$R3,< TPK 

GET WRITE SUBCH. 

000789 

03b0 

9380 

1069 


LNJ 

$51,<SDATA 

WRITE DATA PATTERN 

000790 

03B2 

1 Ebb 



DC 

<5Db 


000791 

03B3 

0600 



DC 

1536 


000792 

0354 

0800 



DC 

2046 

RAM ADDRtSS 

000793 

0355 

8000 



DC 

4*8000* 

EVEN BYYlE,25u MS DELAY 

000794 




* 




000796 




* 




000796 

0356 

9380 

0411 


LNJ 

$B1*<SET 

FILL KtAD AREA WITH SET PATTERN 

000797 




# 




00079b 

03b6 

5E00 

14CU 


5wR 

$K3,<TPR 

GET READ SUBCH. 

000 799 

035A 

9380 

1098 


LNJ 

$bl,<KDATA 

read data pattern from ram 

OOObOO 

035C 

25AA 



DC 

<R T 0 


GOQbOl 

0350 

0600 



DC 

1536 


OOObOC 

035E 

0800 



DC 

2046 

RAM ADDRtSS 

000603 

03BF 

8000 



DC 

2 • 8000• 

EVEN BYTE, 250 MS DELAY 

000(304 




* 




000606 




* 




000806 

03C0 

9380 

04 1 A 


LUJ 

$B1 1 <CRWB 

COMPARt READ AND WRITE BLOCKS 

000807 




* 




OOObOb 




# 




000809 




* 




OOOblU 




* 




000611 




* FIND RAM 

LOCATION AND NUMBER 

OF BYTES FOR 

000612 




# 

BLOCK 

READ AND WRITE 


000ol3 




# 




000614 

o3gc 

C853 



LDR 

$R4,=$K3 

COPY SOBCH. 

000 b 16 

03C3 

4F20 



MLV 

$R4,=;X*20* 


OOO 0 I 6 

03C4 

CFOO 

03FF 


BTR 

$R4 * <05 

DISTANCE FROM EOO TO CHANNEL CCP AREA 

000617 

03C6 

CFOO 

0409 


STR 

$R4 , <06 

FOR BLOCK READ AND WRITE 

000 b 1 b 

03C6 

CA70 

1240 


ADD 

$R4 ,~X•1240• 


000b19 

03CA 

CFOO 

03E2 


5TR 

$R4 , <02 

ADDRESS ABOVE CCBB IN USE 

OOOoCO 

03CC 

CFOO 

03EC 


BTR 

$R4 9 <04 

FOR BLOCK READ AND WRITE 

000821 

03CL 

C270 

1280 


BUB 

$R4,=X*1280* 


00082C 

0300 

6254 



NEC 

= $R<* 


000623 

0301 

CFOO 

03E1 


BTR 

$K4,<0i 

STORE NUMbtR OF BYTES FOR bLOCK 

000 o 2 <t 

0303 

CFOO 

03EB 


SIR 

$R4, <03 

READ AND WRITt. BELOW CURRENT CHANNEL 

000626 

03P5 

4041 



BOR 

$R4,1 

FIND AND STOKE NUMBER OF WORDS 

000826 

0306 

CFOO 

14P7 


BTR 

$K4,<KANGtW 

FOR BLOCK COMPARE 

000627 




* 




000 b 28 

0308 

5E00 

14C0 


BwR 

$R3 *<(PR 

GET WRITt SUBtH. 

000629 

030A 

9800 

03E1 


LDR 

$R1,<01 

GET RANGt 

000630 

030C 

1A60 

03 F 5 


BLEC 

’ $R 1 ,<MTM 10 

SKIP NtXI TEST FOR LAST LINt 

000631 




* 




000632 

030t 

9380 

1069 


LNJ 

$bl*<5DATA 

WRITE DATA TO RAM 

000633 

0350 

lEbb 



DC 

<BDd 


000634 

03ti 

0000 


01 

DC 

• 0 

RANGE = IOP - CCB TOP 

000 o 36 

03t2 

0000 


02 

DC 

0 

RAM ADDRtSS, ^CB TOP 

000636 

03t 3 

6000 



DC 

2 ’ 8000 C 

EVEN BYTE, 250 MS DELAY 

000637 




* 




000838 




* 




000639 




* 




000640 

03E4 

9380 

0411 


LNJ 

$B1,<BET 

FILL KtAD bACK AREA WITH SET PATTERN 

000641 




* 




000642 

03Eo 

beoo 

140) 


BwR 

$R3,< TPK 

GET READ SUBCH. 

000 o 43 

03E8 

9380 

1098 


LNJ 

$b1,<RDAT A 

READ DATA PATTERN FROM RAM 

000644 

03EA 

25AA 



DC 

<RTb 


000646 

03to 

0000 


03 

DC 

0 

RANGE s TOP - CCB TOP 

000b46 

03EC 

0000 


04 

DC 

0 

RAM ADDRtSS, CCB TOP 

000647 

03E0 

8000 



DC 

2•8000• 

EVEN BYTE, 250 MS DELAY 

000o4o 




# 




000649 




* 




00065U 

03EE 

9380 

041A 


LNJ 

$BU<CKWb 

COMPARt KtAD AND WRITE bLOCKB 

000651 




* 




000662 

03F0 

0870 

1240 


LDR 

$R5, = X •1240• 

Stt IF YOU HAvE TO TEST 

000653 

03PC 

0900 

03E2 


CMR 

$R5,<02 

BELOW CURRENT CCB 

000854 

G3F4 

091A 



BE 

>TtBMl 


000655 




# 




000856 




* TEST 

MEMORY FROM EOO TO CCB IN 

USE 

000657 




* 




000658 

03F5 

C800 

03FF 

MTM 10 

LDR 

$R4,<05 

FIND RANGE IN WORDS FOR 

000659 

03F7 

4041 



BOR 

$R4,1 

BLOCK COMPARt 

000660 

03P6 

CFOO 

14D7 


BTR 

$R4,<KANGtW 


000661 




* 




000662 

03F A 

BtOO 

14CD 


BWR 

$R3 , < T PR 

GET WRITE SUBCH. 

000663 

03FC 

9380 

1069 


LNJ 

$B1,<BDAT A 

SEND DATA PATTERN TO RAM 

000664 

Q3FE 

1EBB 



DC 

<BDd 


000665 

03FF 

0000 


05 

DC 

0 


000666 

0400 

1200 



DC 

X • 1200• 


000867 

0401 

6000 



DC 

2*8000* 

EVEN BYTt, 250 MB DELAY 

000868 




* 




000869 




* 




000870 

040C 

9360 

0411 


LNJ 

$Bl»<BET 

FILL KtAD BACK AREA WITH SET PATTERN 

000671 




# 




000672 

0404 

BtOO 

14CD 


BwR 

$R3,< TPK 

GET READ SUBCrl. 

000673 

0406 

9360 

1096 


LNJ 

$B1,<RDAT A 

READ DATA PATTERN FROM RAM 

000674 

0408 

2BAA 



DC 

<RTd 


000675 

0409 

0000 


06 

DC 

0 


000676 

040A 

1200 



DC 

X*1200* 

RAM ADDRtSS 

000677 

0405 

8000 



DC 

2*8000* 

EVEN BYTE, 250 MS DELAY 

000878 




* 




000879 




* 




000680 

040C 

9380 

041A 


LNJ 

$Bl,<CRWb 

COMPARt READ AND WRITE BLOCKS 
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A* 





000681 





* 



000682 

040E 

B800 

14CF 


TESM1 

LDR 

$R3 * < T EMP1 

000o83 

000884 

04 1U 

8386 



* 

JMP 

$B6 

000685 





* 



000686 

0411 

FBCO 

0003 


SET 

CALL 

2 V$F*RTB*DFLT*RANGEW 


0413 

D380 

0000 

X 





0415 

OF 80 







0416 

2BAA 







0417 

14BE 







0416 

14D7 






000887 

0419 

6361 




JMP 

$bl 


GET TESTtD CHANNEL 
RETURN FROM SUBROUTINE 


00088b 

00088V 

000890 

000891 

000892 


* 

* 

* 

* 

CRWB 


COMPARE SENU BLOCK WITH RETURN BLOCK 
CALL 2V$L*SDb*RTB*MASK*RANGEW*ERAR 


000893 

000894 

000898 

000896 

000897 

000896 

000899 

000900 


000901 

000902 

000903 

000904 

000908 

000906 

000907 

000908 

000909 

000910 

000911 

000912 


000913 

000914 

000918 

000916 

000917 

000916 

000919 

000920 

000921 


000922 

000923 

000924 


000928 

000926 

000927 

000928 

.000929 

000930 

000931 

000932 

000933 

000934 

000938 

000936 

000937 

000938 

000939 

000940 

000941 

000942 

000943 

000944 

000948 

000946 

000947 

000948 

000949 

000950 

000951 

000952 

000953 

000954 

000955 

000956 


000957 

000958 

000959 

000960 

000961 

000962 

000963 


04 1A 

FBCO 

0003 






041C 

D380 

0000 

X 





041E 

0F60 







041F 

1EBB 







0420 

2BAA 







0421 

14E1 







0422 

14D7 







0423 

14E3 







0424 

69CQ 

IQBE 



Cm 2 

ERAk 

SEE IF ERROR PRESENT * 

0426 

090F 




BE 

>MBM 

IF PRESENT FiAlT WITH 

0427 

C800 

14D8 



LDR 

$K4 9 <RAMAD 

STARTING LOCATION OF BLOCK IN RAM 

0429 

DbOO 

14E5 



LDR 

$R5,<ERAR*2 

•IS* IN $R5 

0420 

E800 

14E4 



LDR 

$R 6 9 <ERAR+1 

•SHOULD BE* In $R 6 

0420 

FbOO 

14E3 



LDR 

$R7,<ERAR 

LOCATIUN NUMBER OF BLOCK IN $R7 

042 F 

F 380 

125C 



limj 

$B7«<ERRUR 

RAM MEMORY ERROR 






CALL 

2V$CU 

CONTINUE TESTING F'OR ERRORS 

0431 

FbFO 

0001 






0433 

D380 

0000 

X 





0435 

8361 



MBM 

JMP 

$bl 






* 

* 

* 

* 

* 

* 

UNAVAILABLE RESOURCE TEST 

ftftftftftftft DELETED *************** 

04 36 

6870 

4420 


MNkT 

LDR 

$R3 * = A•D • 


0438 

BF 00 

1581 



STR 

*R3,<ERMG+1 







CALL 

ZV$I.2V$TC,TSTD 


043A 

FbCO 

0003 






043C 

D380 

0000 

X 





043E 

OF 80 







043F 

15A9 







0440 

8753 




CL 

= $R3 

INITIAL12E CHANNEL 

0441 

C360 

10 FC 



LNJ 

$B4 * <GENIT2 

INITIAH 2 E 

0443 

C360 

10EC 



LNJ 

$B4 » < F LN 

FIND LINE ON 

0445 

6362 




JMP 

$B2 

NO LINE UN JUMP OUT OF TEST 

0446 

6751 




CL 

= $R 1 

CLEAR INDEX FjR OUTPUT ADDRESS 

0447 

5C20 




LDV 

$R5»= 32 

LOAD RANGE WITH NUMBER OF BYTES 

0446 

DFOO 

14D5 



STR 

$K5 ♦ <RANGE 







CALL 

2VSRD # 2VSHM 

PUT MEMORY HIvjH INTO $B7 

044A 

FBFO 

0001 






044C 

D360 

0000 

X 





044E 

C800 

155C 



LDR 

$R4,<C0NT1 

FORM I/O CONTkOL WORD 

0450 

C380 

1173 



LNJ 

$B4,<CGSCH 


0452 

8187 




I OLD 

$B7,=$K4,=$R5 


0453 

0054 







0454 

0055 







0455 

0703 




blOT 

>$*2*$AF 


0456 

F380 

125C 



LNj 

SB7,<ERR0R 

I/O WAS NAMED 

0458 

C800 

155E 



LDR 

$R4,<C0NT3 

FORM I/O CONTROL WORD 

045 A 

C380 

1173 



LNJ 

3>B4«<CGSCH 


045C 

8070 

0037 



IU 

=55♦= $R4 


045E 

0054 







045 F 

0703 




B1UT 

>$♦2 + $AF 


0460 

F 380 

125C 



LNJ 

$B7,<EKR0R 


0462 

C360 

1177 



LNJ 

3>64,<CHCT 

DO CHANNEL CONTROL 

0464 

0F82 




b 

>$♦2 


0465 

0400 




DC 

2*0400* 

BLOCK WRITE 

0466 

C36Q 

1205 


£ 

LNJ 

SB4,<DLAY 

TIME DELAY 

0466 

C380 

1161 



LNJ 

$B4,<1NXT 

INPUT NEXT STATUS 

046A 

82D5 




Lb 

=$R5»s2*0001* 

SEE IF STATUS BIT SET 

046B 

0001 







046C 

0503 




BBT 

>IS64K 


046D 

F 380 

125C 



LNJ 

$B7 * <ERROR 

NON EXIST ANT RESOURCE BIT NOT SET 

046F 

8382 



1S64K 

* 

* 

JMP 

$B2 

JUMP OUT OF TEST 





* 

* 

* 

CHECK OUTPUT BYTE INTO LCT AND 





ft 

ft 

CHECK INPUT BYTE COMMAND 


0470 

B870 

4520 


LCTOB 

LDR 

$R3 * =A * E • 


0472 

BFOO 

1581 



STR 

$R3«<ERMG+1 







CALL 

2V$T•2VsTC*TSTE 


0474 

FBCO 

0003 






0476 

D380 

0000 

X 





0478 

0F80 







0479 

15B7 







047A 

C380 

10FC 


ft 

LNJ 

$B4,<GENITZ 

GIVE GENERAL INITIALIZE 

047C 

8753 




CL 

= $R3 


047U 

C380 

10EC 


LCTB 

LNJ 

$B4,<FLN 

FIND LINE ON 

04 7 F 

8382 




JMP 

$62 

NO LINE ON 

0480 

BFOO 

0538 



STR 

$R3 1 <TST CHN 

STORE SUBCH* 

0482 

3600 

0485 



bEVN 

$K3»<NXLCT A 

SET TO READ SUBCH. 







TITLE DCMC1 

•REV. 

A * 
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000964 

000966 

0484 

8803 


* 

DEC 

= $R3 


000966 




* SET 

UP TABLE TO BE SENT IN OUTPUT BYTE TO LCT 

000967 




* 




000966 

0485 

C38Q 

0489 

NXLCTA 

LNJ 

$B4*<LCTGRB 

FILL LCT AREA WITH A PATTERN 

000969 

000970 

0487 

0 F8O 

04CD 

* 

B 

cLCTZ 


000971 




* DATA IS 

ascending starting with 

ONE 

00097c 




* 




000973 

0489 

5CC0 


LCTGRB 

LDV 

$R5*=-64 

64 ENTRIES IN TABLE 

R1 TRACKS ADDRESS 

000974 

G48A 

8751 



CL 

= $Ri 

000976 

048b 

A870 

0100 


LDR 

$R2 * sX * 100• 

R2 TRACKS DATA 

000976 

0480 

C852 


NXLCT 

LDR 

$R4*s$K2 

000977 

048E 

C451 



OR 

$R4 * =$R1 

FORM DATA AND ADDRESS 

00097b 

04 8 F 

CF 10 

1 EB6 


STR 

$R4*<5D6.$R1 

000979 

000960 

0491 

0492 

8 AO 1 
AA70 

0100 


IBS 

= $R 1 

$R2* sX•100 * 

FORM NtXi DATA WORD 

000981 

0494 

5780 

0480 


BINC 

$K5♦<NXLCT 

DO NEXT VALUE 

000982 




* NOW 1 

DUMMY 

OUT CONTRUL CHARACTERS 

000983 

0496 

C870 

0302 


LDR 

$R4 * = Z •0302’ 


000984 

0498 

8751 



CL 

= $Ri 


000986 

0499 

A810 

04AC 

NXLCT1 

LDR 

$K2*<N0NQ.$Rl 

GET FORBIDDEN CHARACTER 

000986 

049b 

8 AD 1 



INC 

= $Ri 

000987 

049C 

2800 

04A1 


bLZ 

$R2,<GRBi 

BRANCH IF END OF LIST 

000988 

049L 

CF20 

1EB6 


STR 

$R4,<5DB.$R2 

000989 

000990 

04 AO 

OFF 9 


* 

b 

>NXLCT1 


000991 




* SET 1 

DATA 

BUFFER POINTERS TO NON ( 

2ER0 

000992 




* 



000993 

04A1 

9870 

8005 

GRB1 

LDR 

$K1 * =Z * 8005• 


000994 

04A3 

9F00 

lbCO 


STR 

$Rl*<SDB+5 


000996 

04A5 

9870 

4025 


LDR 

$Ri*=Z*4025* 


000996 

04A7 

9F00 

1E04 


STR 

$Rl*<SDB+25 


000997 

04A9 

8700 

1 EF6 


CL 

<SDB+64 

* 

000998 

000999 

04Ab 

8384 


* 

JMP 

$64 

GET OUT 

001000 




* TABLE OF 

control locations 


001001 




* 




001002 

04AC 

0008 


NONO 

DC 

X • 8 • 

CHANNEL COMMAND REc 

001003 

04A0 

0009 



DC 

X * 9 * 

CHANNEL CONTRUL REC 

001004 

04AE 

0013 



DC 

X* 13* 

001008 

04AF 

0021 



DC 

X • 21 • 


001006 

0460 

0022 



DC 

X • 22 * 


001007 

0461 

0023 



DC 

X • 23 * 


00100 b 

0462 

0028 



DC 

X • 28 • 

CHAN COMMAND* TRAN 

001009 

0463 

0029 



DC 

X • 29 • 

CHAN CONTROL* TRAN 

001010 

0464 

0006 



DC 

X • D* 

001011 

0465 

0020 



DC 

X • 2D • 


001012 

04b6 

0020 



DC 

X • 20 • 


001013 

0467 

0035 



DC 

X«35» 


001014 

0468 

0000 



DC 

x»o« 


001015 

0469 

0016 



DC 

X» 16» 


001016 

046A 

0014 



DC 

X* 14» 

LR CONIRUL 

001017 

0466 

0015 



DC 

X* 15* 

001018 

046C 

0032 



DC 

X • 32 • 


001019 

0460 

0040 



DC 

X • 40 * 


001020 

046b 

0041 



DC 

X * 41 * 


001021 

04BF 

0045 



DC 

X • 45 • 


001022 

04CO 

0053 



DC 

X • 53 • 


001023 

04C1 

0055 



DC 

X* 55» 


001024 

04C2 

0036 



DC 

X' 3b • 


001025 

04C3 

0037 



DC 

X • 3 7 • 


001026 

04C4 

ffff 



DC 

-X« 1 * 

END OF LIST 

001027 

001028 

04C5 

0000 


* 

RESV 

8*0 

ROOM FUR EXPANSION 

001029 

001030 

04C0 

9870 

0017 

* 

LCTZ 

LDR 

$R1*=23 


001031 

04CF 

C870 

0017 

LDR 

$R4.=23 

START SENDING FROM tCT 23 

00103c 

0401 

9680 

ibbb 


LAB 

$61 * <SD6 

SEND BUFFER 

001033 

0403 

LF52 

LCTCR 

STR 

$R4 * = $R2 


001034 

0404 

2008 



SOL 

$R2 « 8 


001035 

0405 

A454 



OR 

$R2 *s$R4 

SET BOIH ADDRESS OR DATA 
CREAT LCI BUFFER 

001036 

0406 

AF5D 



STR 

$K2 * $b1• + $K1 

001037 

0407 

8AD4 



INC 

= $R4 


001038 

0408 

9970 

0020 


CMR 

$R1*=32 

IS IT LCI 32 

001039 

040A 

0981 

FFF8 


BNb 

LCTlK 

CREAT MOKE, IF NOT 

001040 

040C 

8752 



CL 

= $R2 

001041 

0400 

AF11 

OFEO 


STR 

$R2 * $B1.$R1 
$B3 * <SNDLCT 

MARK END OF ThE BUFFER 

001042 

040t 

6380 


LNJ 

SENT LCT BYTES TO RAM 

001043 

04E0 

1 E6B 



DC 

<SDd 

BUFFER ADDRESS 

001044 

04E1 

0016 



DC 

22 

001045 

04t2 

A870 

0017 


LDR 

$R2 * = 23 


001046 

04E4 

6680 

ibbb 


LAB 

$B3 *<SDB 


001047 

04E6 

9823 


KBYTES 

LDR 

$R1*$B3.$R2 


001048 

04E7 

9F 56 



STR 

$R1*=$K6 


001049 

04t8 

9570 

FFOO 


AND 

$R 1 » = Z * FFOO• 

ALIGN ADDRESS 

001050 

04EA 

9470 

0037 


OR 

$R1 * = X•003 7• 

IN BYTt DIRECTOR 

001051 

04bC 

C380 

OEOC 


LNJ 

$B4 » <OUTLCT 

OUTPUT BYTE 

001052 

OhLL 

C380 

11A8 


LNJ 

$B4 * <1N6YTE 

INPUT LCI BYTt 

001053 

04F0 

L570 

FFOO 


AND 

$R6 * = 2• FFOO • 

STRIPT TU DATA 

001054 

04FC 

0956 



CMR 

$R5*=$R6 

001055 

04F3 

0901 

0003 


BE 

KBYlbl 

BRANCH IF DATA IS RIGHT 

001056 

04F5 

F 380 

125C 


LNJ 

$B7 * <ERROR 

OR ELSE REPOT ERROR 

001057 

04F 7 

8A02 


RbYTEl 

INC 

«$R2 

001058 

04F 8 

A970 

0020 

CMR 

$R2*s32 


001059 

04 FA 

0981 

FFE6 


BNE 

RBYIES 


001060 

04 FC 

C800 

0538 


LDR 

$K4»<TSTCHN 


001061 

04 F b 

4660 

0505 


BODD 

$R4 * <LCTE 


001062 

0500 

4F20 



MLV 

$R4 * = X • 0020 • 

CALCUTLE LCT RAM ADDRESS 

001063 

0501 

CA70 

0017 


ADD 

$R4,=23 

START FROM LCI 23 

001064 

0503 

CF 00 

0509 


STR 

$R4 *<LCT A 

Go 1065 

0505 

9380 

1098 

LCTE 

bc J 

$61*<RDATA 

READ LCT 23 TO 31 

001066 

0507 

2BAA 



<RTd 

READ BUFFER 

001067 

0508 

0009 



DC 

9 

001068 

0509 

0000 


LCTA 

DC 

0 


001069 

001070 

050A 

8000 


* 

DC 

~Z * 8000 * 


001071 




* 




001072 




* 

PACK THE UNPACKED DATA 


001073 

001074 

0506 

2CF8 


* 

LDV 

$R2 *s-8 


001075 

050C 

6680 

1 EDA 


LAB 

$B3*<SDB+3i 


001076 

050b 

C82 3 


LCTC 

LDR 

$R4,$b3.$R2 
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001077 

050F 

C570 

DOFF 

001U76 

0511 

CF 23 


001079 

0512 

2 7FC 


OU1080 

0613 

5C06 


001081 

0514 

C380 

11B6 

001082 

0616 

1 E 02 


00 lo83 
001084 
001066 
001086 
001087 
001088 

0517 

1 F 1 F 


001089 

0518 

6751 


001090 

0519 

Bb60 

IF IF 

001091 

051B 

9B80 

2 BAA 

001092 

0510 

0813 


001093 

05 IE 

E811 


001094 

05 IF 

095b 


001096 

0620 

0903 


001096 

0521 

F 380 

125C 

001097 

0523 

8 AO 1 


001096 

0524 

9970 

0003 

001099 

001100 

001101 

001102 

001103 

052b 

0981 

FFF 6 

001104 

0626 

3B60 

0531 

001106 

001 x 06 

001107 

062 A 

C380 

084E 

001108 

062C 

8756 


001109 

052D 

0956 


001110 

001111 

052E 

0903 


001112 

001113 

052F 

F 380 

125C 

0011 14 

0531 

b800 

0538 

001115 

0533 

8AD3 


00111 b 

0534 

3010 


001117 

0535 

0961 

F F 47 

001116 

0537 

6382 


001119 

881 IIS 
001122 
001123 
001124 
001125 

0538 

0000 


00112 o 

0639 

9870 

5349 

001127 

001128 

053b 

9F00 

1581 


0530 

FBCO 

0003 

001129 

053F 

0541 

0542 

0360 
OF 80 

1 5C5 

0000 

001130 

001131 

0543 

C360 

10FC 

001132 

0545 

6753 


001133 

0546 

C360 

10EC 

001134 

0548 

8382 



001135 
001136 
001137 
001136 


SR4,=2»00FF * 

Sk4,SB3.$R2 

SR2 »>LCTC 

SR5,=b 

SB4 9 < PKK1M 

<SDo + 23 

<SUd+100 


COMPARE Tht BLOCK REAL) DATA 


CL 

LAb 

LAB 

LCT X LOR 
LOR 
CMR 
bL 
LNJ 
INC 
CMR 
bnE 

* 

*LECHECK TO 


= 3>k i 

Sb3 *<SDB + 100 
$B1 * <RT b 
SR5 » SB3 • SR 1 
$R6*Sbl•SR 1 
SR5*=SR6 
>S+2+$AF , 

SB f » <lrroR 
= $R 1 
SRl* = 3 
LCT X 

SEE IF LCT STATJS IS CLEARtD 

(DONE FOR RECEIVE CHANNELS OisiLY) 


N0ER5 LOR 
INC 
CMV 
BNE 
JMP 

TSTCHN OC 

* 


SK3,<NOERb 
SBA,<ILCTST 


= $R6 

SR5*=SR6 

>$+2*SAF 

SB7 $ <ERROR 

SR3 < <1STCHN 
= $R3 
SR 3 * = 16 
LCTb 
SB2 
0 


REAO LCT STATUS 

LOAO SR6 WITH * SHOyLD BE 1 

LCT STATUS NO I CLEARED 
GET HIGHEST SuBCH. 


* SOFT-InITIaUZE 1EST 


S1 TEST LOR 
STR 
CALL 


SR 1 1 = A•S1 • 

Ski*<tkMG+l 
ZV$T*ZVsTC»TSTSI 


REPORT TEST 


LNJ 

SB4,<gENITZ 

INITIALIZE 

CL 

= SR3 


LNJ 

$64,<FLN 

FIND LINE NUMbER 

JMP 

SB2 

NO LINES 


FBCO 0003 
0360 0000 


* FILL WRITE BUFFER WITH DATA (6406) 
CALL ZVSF »SOb»CClTTtBOFRNG 


001139 

001140 

001141 

001142 

001143 

001144 

001146 

001146 

001147 

001146 

001149 

001150 

001151 





* WRITE DATA 

OUT 


0551 

BFOO 

1 4CD 

SI T 9 

STR 

$R3 * < T PR 


0553 

3680 

0556 


bODD 

SR3,<SIT4 


0555 

8A03 



INC 

= $R3 

GET WRITE CHANNEL 

0556 

9380 

1069 

SIT4 

LNJ 

SB1» <SDAT A 


0558 

lEBB 



UC 

<SDb 

FRUM HERE 

0559 

0400 



DC 

X * 400 * 

RANGE 

055A 

0300 



DC 

X* 300» 

START AT HEX 300 

055b 

8000 



UC 

Z•8000• 

EVEN BYTE 60UNDRY 


WRITE OUT CHANNEL PROGRAM 


001153 

055C 

9380 

1069 


LNJ 

SB 1♦<SUAT A 

SENU UATA 

001154 

055E 

05 AA 



DC 

<1!ES1 


001155 

055F 

0008 



DC 

(I TEST 1-1 TEST)*2 

RANGE 

001156 

0560 

0200 



UC 

X'200« 

RAM AUUktSS 

001157 

001158 

05b 1 

0000 


* 

UC 

0 

EVEN BYTE 

001159 




* LOAD 

UUMMY 

INFO TO LCT 8, X»28» 


001160 

001161 

0562 

6380 

OFCC 

# 

LNJ 

S63 *<SETLCT 


001162 

001163 

0564 

05A5 


* 

UC 

<IZLCT 


001164 




* READ 

LCT 8 

,9»X»28* »X•29• 


001165 

001166 

0565 

6800 

14CD 

* 

LUR 

$R3*<TPk 

GET TESTED CHANNEL 

001167 

0567 

6380 

0628 


LNJ 

SB3,<STRTI0 

START CHANNEL PROGRAM 

001168 

0569 

C380 

1205 


LNJ 

$64,<ULAY 

DtLAY 25 MS 

001169 

0566 

9680 

05AE 

SIT2 

LAB 

$61*<TSVLU 


001170 

056D 

8752 



CL 

s$R2 


001171 

056E 

986D 


SIT6 

LUR 

SR 1 * S61• + SR2 

GET BY\E ADDRESS 

001172 

056F 

C380 

OEOC 


LNJ 

S64,<0UTLCT 

OUTPUT II 

001173 

0571 

C380 

11 A8 


LNJ 

S64 * <IN6YT E 

INPUT BY IE 

001174 

0573 

5903 


6 EZ 

SR5»>SIT5 

BRANCH IF CLEARED 

001175 

0574 

F 380 

125C 


LNJ 

SB f »<ERROR 

LCT NO 1 CLEARED 

001176 

0576 

2D04 


SIT5 

CMV 

SR2 * =4 

CHECK FOR LAST IN TABLE 

001177 

0577 

09F7 



BNE 

>S1T6 


001178 

001179 


TEST SOFTWARE SOFT INITIALIZE 
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001180 

001181 

001182 

001183 

001184 

001165 

001186 

001187 

001188 

001189 

001190 

001191 

001192 

001193 

001194 

001195 

001196 

001197 

001198 

001199 

G0U00 

001201 

001202 

001203 

001204 

001205 

001206 

001207 

00120-8 

001209 

001210 

001211 

001212 

001213 

001214 

0QU15 

001216 

001217 

001218 

001219 

001220 

001221 

001222 

001223 

001224 

001225 

001226 

001227 

001228 

001229 

001230 

001231 

001232 

001233 

001234 

001235 

001236 

00U37 

001238 

001239 

001440 

001241 

001242 

001443 

001244 

001245 

00124b 

001247 

001248 

001249 

001250 

001451 

001252 

001453 

001254 

.001255 


0578 

C380 

0E25 


LNJ 

$B4,<RPVLU 

READ P VALUE 

057A 

E870 

0204 


LDR 

$R6,sX *204 * 

WHAT U SHQUlu BE 

057C 

D956 



CMR 

SR5,=$R6 


057D 

0900 

0581 


BE 

<SU 7 


057 F 

F380 

125C 

* 

LNJ 

$B7,<ERRQR 

CCP SOFT INIT FAILURE 

0581 

6800 

14CD 

SIT 7 

LDR 

SR3,<TPR 


0583 

3B00 

0586 


BfcVN 

SR3,<SIT11 


0585 

88D3 



DEC 

= $R3 


0586 

9380 

1098 

SITU 

LNJ 

Sbl,<KDAT A 

read data 

0588 

2BAA 



DC 

<RTb 

TO HERt 

0589 

0400 



DC 

X * 400* 

RANGE 

058A 

0300 



DC 

X»300* 

RAM ADDRESS 

058B 

8000 


£ 

DC 

2 »8U00* 

EVEN BYTE, 25u MS DELAY 

058C 

8700 

14E1 


CL 

<MASK 


058E 

9870 

0200 


LDR 

$R1,sX•200• 


0590 

9F00 

1 4D7 


STR 

SRI,<KANGEW 

RANGE IN WORDS 

0592 

9380 

041A 


LNJ 

Sbl,<CRWB 

COMPARE DATA 

0594 

C380 

1177 

SIT10 

LNJ 

SB4,<CHCT 

CFiANNEL CONTRuL 

0596 

OF 82 



b 

>$♦2 


0597 

0100 


£ 

DC 

X*100* 

CCB LIST RESET 

0598 

8AD3 



INC 

= SKJ 

GET WRITE CHANNEL 

0599 

C380 

1177 


LNJ 

SB4, <CHCT 

CHANNEL CONTROL 

0590 

OF 82 



b 

>$♦4 


059C 

0100 


* 

DC 

X*100' 

CCB LIST RESET 

059D 

6800 

14CD 

* 

LDR 

$K3,<T PR 

GET TESTED CHaNNEL 

059F 

8AD3 



INC 

= SR3 

BUMP FUR NEXT CHANNEL 

OSAO 

C380 

10EC 


LNJ 

$B4, <F LN 

FIND NEXl LINt. NUMBER 

05A2 

8382 



JMP 

SB2. 

NO MORE LINES, DONE 

05A3 

OF80 

0551 

* 

B 

<SU9 





* 

* LCT 

FOR THIS TEST 


05A5 

4008 


IZLCT 

DC 

Z'4008' 

DATA SET SCAN 

Q5A6 

4028 



DC 

Z'4028 * 


05A7 

0206 


I2L 

DC 

Z * 0206 ' 

P, MSB RCV 

05A8 

0226 



DC 

2*0226* 

P MSB, XMIT 

G5A9 

0000 



DC 

0 





* channel program 


05 AA 

OlbD 


ITEST 

DC 

z*oibd* 

NOP,INZ 

05 Ab 

31 AO 



DC 

2'31AO * 

NOP,WAIT 

05 AC 

01BD 



DC 

2 * 01BD• 


05AD 

3100 



DC 

2*3100* 



05AE 


I TEST 1 

EUU 

S 





* TEST 

ADDRESSES 


05At 

0837 


TSVLU 

DC 

2'0 6 3 7 * 


05AF 

0937 



DC 

2*0937' 


05B0 

2837 



DC 

2'2 6 3 7 * 


05B1 

2937 



DC 

2*2937* 



05b2 

0563 

05b4 

05b5 

05B6 


01BD 
3100 
01BD 
3100 
201- E 


* CHANNt.L PROGRAMS FOR NEXT TEST 


PROGl 


K: 

DC 

DC 

DC 


2 • 01 bD * 
2 * 3100 * 
Z * 01BD * 
2 * 3100 * 
Z»2UFE« 


NOP, WAII 
NOP, WA11 
B -2 


CHANNEL PROGRAM TEST (NOP PROGRAM) 


001256 

05B 7 

6870 

4620 


CHPGT LDR 

SR3,sA»F » 

001257 

05b9 

BFOO 

1581 


STR 

SK3, <EKMG*1 

00125b 

G5bb 

FbCO 

0003 


CALL 

ZV$UZVSTC,TSIF 


05BD 

D380 

0000 

X 




056F 

OF 80 






05C0 

15D0 





001259 

05C1 

8 753 



CL 

= $R3 

001260 

05C2 

C380 

10 FC 


LNJ 

SB4,<GENITZ 

001261 





* 

001462 

05C4 

C380 

10EC 


Enj 

JMP 

SB4,<F LN 

001263 

05C6 

8382 



SB2 

OU1464 

05C7 

3B80 

05CA 


bUDD 

SR3,<CHPGT2 

001465 

05C9 

8 AD3 



1NC 

= $R3 

001266 

05CA 

8751 



CHPGT2 CL 

= $R 1 

001 467 

05Cd 

BFOO 

14CD 


STR 

SR3,<T PR 

001268 

05CD 

E870 

0800 


EDR 

SK6,-2*0800' 

00U69 

05CF 

EF 40 

OEF 0 


STR 

SK6,RNG 

001270 

05D1 

FBCO 

0003 


CALL 

ZVSF,SDB,PNOP,RNG 


05p3 

D380 

0000 

X 




001271 

001272 

001473 

001274 

001275 

001276 

001477 

00U78 

001279 

001280 

001281 

001282 


0505 
05Db 
05D7 
0508 
05D9 
05 Db 
05DC 
05DD 
05DE 


05DF 
05E1 
G5E2 
05E3 
05L4 


OF 80 
1EBB 
1 4bF 
14C0 
9380 
1 EBb 
1000 
0200 
8000 


05B2 
000 A 
11 F 6 

0000 


1069 


LHJ 

Sbl,<SDATA 



DC 

<SDb 



DC 

X»1000* 



DC 

X'200' 



DC 

2 *8000* 


# 




* 



1069 


LNJ 

SB1,<SDATA 



DC 

<PRUG1 



DC 

X * OUOA * 



DC 

X*11F6* 



DC 

0 


INITIALISE CHANNEL NUMBER 
GENERAL INITIALIZE 

FIND LINE ON 

NO LINE UN JUMP UUj OF TEST 
GET WRITE SUbCH, 

CLEAR INDEX FjR OUjpUT ADDRESS 
STORE SUbCH, 

NOP BUFFER RANGE 
STORE AWAY 


SEND PATJERN TO RAm 
BUFFER ADDRESS 
RANGE 

STARTING address OF RAM 


WRITE CHANNEL PROGRAM 

range 

EVEN BYTE BOUNDKY 




TITLE DCMCi *REV. A* 


PAGE 


oouai 

00 W84 
001285 
00128 b 

001287 
00U88 
UUU89 
001290 
001291 
001c 9 2 
001*93 
00 1 * 9<* 
001*95 
001*9b 
001497 
OOU98 
001499 
001300 
OOlaOl 
001302 
001303 
001304 
00UQ5 
001306 
001307 
001308 
001309 
001310 
001311 
001312 
001313 
001314 
00131b 
001316 
001317 
001318 
001319 
001320 
001321 
001322 
001323 
001324 
00132b 
001326 
001327 
00132b 
001329 
001330 
001331 
001332 
001333 
001334 
00133b 
001336 
001337 
001338 
001339 
001340 
001341 
001342 
001343 
001844 
00134b 
001346 
001347 
001348 
001349 
001350 
001351 
001352 
001353 
001354 
001355 
00135O 
001357 

001358 

001359 

001360 

001361 

001362 

001363 

001364 


b380 OFCC 
0637 


C380 1205 
0380 0628 


E870 0200 
CFOQ 14D4 
9870 FF20 
0F03 

1780 05F2 
C380 1177 
01-82 
2000 


E870 UFA 
OF 00 14D4 
0956 
0903 

F380 125C 


C800 1562 
C380 1173 
8070 4000 
0054 
0703 

F380 125C 
8383 


$B3 * <SETLCT 
<CP I 4 


$b4,<0LAY 

SB3*<S1KTI0 


3>R6 i =2.' 02 00 • 
iR4 » <1RG 
4K 1♦ =-224 
>S+2+*AF 
4K1,<NP4 
$B4♦ <CHCT 
>$♦2 
L ' 2U00 • 


SEND LOT OUT FOR THIS CHANNEL 


START 10 


SHORT DELAY FOR CHAN PROG TU START. 


05F9 

C380 

1205 


LNJ 

$B4,<DLAY 


DELAY 25MS 

ObFo 

C380 

0E25 


LNJ 

Sb4,<KPvLU 


READ P TO TEMP 

ObFD 

D956 



cmr 

$R5 » = $R6 


R6 STILL HAS a*221» 

ObFE 

0303 



BG 

>NP5 



ObFF 

F 380 

125C 


LNJ 

$b7,<ERK0R 


PROGRAM DIDN’I START AGAIN 

0601 

E870 

1200 

NP5 LDR 

$R6i=X * 1200 < 

i 


0603 

D956 



CMR 

$R5 » = $R6 



0604 

0203 



bl 

>NPo 



0605 

F380 

125C 


LNJ 

iB7♦<EKKOR 


ERROR» SIOP 1/0 DIDN'T S10P CCP 




* 

START CHANNEL PROGRAM AGAIN 





* 

RESET P TO 

START AT LOC 

WHICH RESETS STARI I/O BIT 

0607 

6380 

OFCC 

NP6 LNJ 

4B3 * < SETLCT 



0609 

0636 



DC 

<CP f 5 



060 A 

B380 

0628 


LNJ 

$B3»<STRTI0 


GIVE S1 ART 10 

U60C 

1CB0 



LDV 

SR l * = -*80 



060 D 

0F03 


NP7 NOP 

>$+2*$AP 



060 E 

1780 

060D 


bINC 

$K1,<NP7 


DELAY 10 LET CHANNEL PROGRAM START 




# 

ft 

GIVE STOP 

I/O FOR OTHER 

CHANNEL 

. SHOULDN'T STuP PROGRAM* 

0610 

88D3 



DEC 

= $K3 



0611 

C380 

1177 


LNJ 

*B4,<CHCT 


DO CHANNEL CONTROL 

0613 

OF 82 



B 

>$♦2 



0614 

2000 


* 

DC 

2 *2000* 


STOP 10 




* 

* 

give output byil commands to make sure ihey don’t stop channel prog. 

0615 

8 AD3 



INC 

= $R3 


GET BACK CHANNEL 

06 16 

6380 

OFCC 


LNJ 

$B3 * <SEILCT 


OUTPUT LCT AGAIN 

0618 

0633 



DC 

< C P T 2 


SAME AS BEPOKc. 




* 

NOW GIVE INPUT DATA SET 

STATUS 

TO CHtCK I T WON I TERMINATE CHAN 




* 

PROGRAM 




0619 

C380 

0EC6 


LNJ 

$B4 * <DSSTA 



06 1B 

C380 

1205 


LNJ 

SB4,<DLAY 


DELAY 25 MS 

06 1D 

C380 

0t25 


LNJ 

4B4,<RPVLU 


READ P TO TEMP 


* START 10 

STRTIO LOR 
LNJ 


SK6* = 2* UFA* 
$R4 * <1RG 
$Rb * = 3>R6 
>$+2+SAF 
3>b7 ♦ <LRROR 
$B2 


*R4,<C0NT7 
$B4,<CGSCH 
= 2*4000* t = $R4 

>$+2+$Ap 
SB7»<ERKOK 
3 b 3 


FORM * SHOULD BE* p COUNTER 
STORE FOR ERRuR 
COMPARE P COUNTER 

P COUNI WRONG. BAD PROGRAM EXICUTION 
DONE WITH TESI 


GET FUNC CODE 


2*0105* 

2*0125* 

0 


001365 





* 



001366 

063o 

2827 



CPT5 

DC 

X' 2827• 

001367 

0637 

0226 



CPT4 

DC 

X * 0226 * 

001368 
001369 
001370 

0638 

0000 



* 

DC 

0 

001371 





* 



001372 





* 


INSTRUCTION TE: 

001373 





* 



001374 





* 



001375 

0639 

B870 

4720 


1NSTT 

LDR 

4R3♦=A'G • 

001376 

063B 

BFOO 

1581 



STR 

SR3 *<ERMG+1 

001377 

063D 

fbco 

0003 



CALL 

2V$T.2V4TC*T: 


063F 

D380 

0000 

X 





0641 

OF 80 







0642 

15DB 






001378 

001379 

0643 

8753 



* 

CL 

= $R3 

001380 

0644 

C380 

1OEC 


1NSLUP 

LNJ 

4B4,<FLN 

001381 

0646 

8382 




JMP 

$B2 

001382 

0647 

BFOO 

14CD 



STR 

$R3 * <TPK 

001383 

0649 

bFQO 

14CF 



STR 

SR3 *<TEMP1 

001384 

064B 

C380 

10FC 



LNJ 

4B4,<GENIT2 

001385 

064D 

3B82 




bUDD 

$K3 * >INS2 

001386 

064E 

6AD3 




INC 

= 3>R3 

001387 

064F 

8751 



1NS2 

CL 

= $R1 

001388 

0650 

C870 

0364 



LDR 

$R4 * =X'0364 * 

001389 

001390 

0652 

CFOO 

I4E2 


* 

STR 

$R4 ♦ <MASK1 


COMMAND WAS NAK•ED 


RCV PAUSt DISABLE 
XM1T PAUSE DISABLE 


RESTARI AT 22a 
P % MSB*XM1T 
END OF LIST 


INIfIALI2E CHANNEL NUMBER 


FIND LINE ON 
NO LINE ON JUMP OUT OF TEST 
STOKE SUBCH. NUMBER 

MLCC GENERAL INITIALIZE 
GET WRITE SUBCH. 

CLEAR INDEX FuR OUTPUT ADDRESS 
LOAD MASK1 WITH EXPECTED 
P COUNIEK 



TITLE DCMC1 •KEV• A* 
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001391 
001392 
001393 
001394 
001395 
001396 
001397 
001396 
001399 
001400 
001401 
001402 
001403 
001404 
001405 
001406 
001407 
001406 
001*09 
001410 
001*11 
001*12 
001*13 
001*14 
001415 
001416 
001417 
001416 
001*19 
001*20 
001421 
001*22 
001425 
001*24 
001425 
001426 
001427 
001426 
001429 
001*30 
001431 
001432 
001*33 
001434 
001435 
00 l*3o 
001*37 
001436 
001*39 
00144U 
001441 
001442 
001443 
001444 
001445 
001446 
001447 
001446 
001449 
001450 
001*51 
001452 
001453 
001454 
001455 
001*56 
001*57 
001456 
001*59 
001460 
001461 
001462 
001*63 
001464 
001465 
001 * 6 o 
001*67 
001*66 
001469 
001470 
001*71 
001472 
001473 
001*74 
001*75 
001*76 
001*77 
001*76 
001479 
001*80 
001481 
001482 
001*83 
0U1*84 
001*85 
001486 
001*87 
001*86 
001*89 
001490 
001491 
001*92 
001493 
001*94 
001*95 
001496 
001497 
001496 
001499 
00150U 
001501 
001502 
001503 


PREPARE AND LOAD RAM INSTRUCTIONS 


0654 

9380 

1069 


LNJ 

$B1,<SDATA 



0656 

1291 



DC 

<INSTR1 



065 7 

OOEE 



DC 

(1NSTR2-INSTR1)*2 



0658 

0200 



DC 

X * 200 * 

RAM ADDRESS 


0659 

0000 


# 

DC 

0 

CPU HAS RIGHT 

BYT i 

065 A 

9380 

1069 

* 

LNJ 

$81,<SDAT A 



065C 

1308 



DC 

<INST R2 



065D 

0076 



DC 

(INSTR3-1NSTR2)*2 



065E 

02EE 



DC 

X*02EE* 

RAM ADDRESS 


06 5 F 

0000 


# 

DC 

0 

EVEN BYTE STAkT 

0660 

9380 

1069 

* 

LNJ 

SB1,<SDATA 



066 C 

1343 



DC 

< l N S T K 3 



0663 

0060 



DC 

(INSTK4-INST R3)*2 



0664 

036 A 



DC 

X*36A* 

RAM ADDRESS 


0665 

0000 



DC 

0 

EVEN BYTt START 

0666 

9380 

1069 

7* 

LNJ 

$B1»<SDAT A 

SEND DATA 


0666 

1373 



DC 

<IN5TR4 



0669 

0008 



DC 

(IN6Tk5-lNSTR4)*2 

RANGE 


066A 

03C8 



DC 

X•3C6 * 

RAM ADDRESS 


066 b 

0000 


£ 

DC 

0 

EVEN BYTt IN 

CPU 

06OC 

9380 

1069 


LNJ 

$B1,<SDATA 

SEND DATA 


066E 

1377 



DC 

< I NST K5 



066F 

OOOA 



DC 

(INSTK6-INSTR5)*2 

RANGE 


0670 

03D0 



DC 

X *3D0 * 

RAM ADDRESS 


0671 

0000 



DC 

0 

EVEN BYTt IN 

cPU 

0672 

9380 

1069 


LNJ 

$B1,<SDAT A 

SEND DATA 


0674 

137C 



DC 

<INSTR6 



0675 

OOOA 



DC 

(TRANM1-INSTK6)*2 

RANGE 


06 76 

03DA 



DC 

X»3DA* 

RAM ADDRESS 


06 77 

0000 



DC 

0 

EVEN BYTE IN 

CPU 


* SEND OUT LOOKUP TABLE FOR INSTRUCTION TEST 

LNJ $B1*<SDATA SEND PROGRAM 


0676 

9380 

1069 


LNJ 

$B1,<SDATA 

067A 

06B3 



DC 

<TALU 

0678 

0004 



DC 

4 

06 7 C 

0402 



DC 

X • 402 * 

06 7D 

0000 


* 

DC 

0 

06 /t; 

b380 

OFCC 

* 

LNJ 

$83,<StTLCT 

0680 

06A5 



DC 

<LCTTAB 

0681 

4C01 



LDV 

$R4,=I 

0662 

C380 

1189 


LNJ 

$B4,<MCCB 

0684 

2BAA 



DC 

<RT b 

0685 

0040 



DC 

X * 40 • 

0686 

8380 

0628 

* 

LNJ 

$B3,<STRT10 

0688 

C380 

1215 

* 

LNJ 

$B4,<DLAYLG 

068A 

C853 



LDR 

$R4,=$R3 

U66B 

4F20 



MLV 

$K4, ?X * 20 • 

066C 

4E06 



ADV 

$R4,=6 

068D 

CF 00 

0694 


STR 

$K4,<INS1 

U68F 

86D3 



DEC 

= $R3 

0690 

9380 

1098 


LNJ 

$B1,<RDATA 

0692 

14D7 



DC 

<RAHGtW 

0693 

0002 



DC 

2 

0694 

0000 


I NS 1 

DC 

0 

0695 

8000 


* 

DC 

2*8000 * 

0696 

D800 

14D7 

* 

LDR 

$R5,<RANGEW 

0696 

D570 

OFFF 


and 

$R5,=X*FFF* 

069 A 

E800 

14E2 


LDR 

$R6,<MASKI 

069C 

D956 



CMR 

$R5,?$R6 

069D 

0903 



bt 

>N01NF 

0691 

F 380 

125C 


LNJ 

$B7,<ERROR 

06A0 

B800 

14CD 

NO INF 

LDR 

$R3,<1 PR 

06A<1 

8 AD3 



INC 

s$K3 

06 A3 

OF 61 

FFAO 


b 

INSLUP 




* LCT 

table 

FOR THIS TEST 

06A5 

0226 


LCT T AB 

DC 

2 * 0226 * 

06A6 

tE27 



DC 

2*Et27* 

06A/ 

FF03 



DC 

2 * FF03 * 

06 A6 

AA1C 



DC 

2* AA1C* 

06A9 

552C 



DC 

2 * 552C * 

06AA 

AA3F 



DC 

2 * AA3F * 

ObAB 

0437 



DC 

2'0437» 

06 AC 

0238 



DC 

2 * 0^38 * 

06AD 

0105 



DC 

2*0105* 

06 At 

0125 



DC 

2*0125* 

06 AF 

FF 17 



DC 

2 * F F17 • 

0680 

0000 



DC 

0 

06B1 

0000 



DC 

0 

0682 

0000 



DC 

0 




* TABLE FOR 

TABLE LOOKUP 

0683 

031A 


TALU 

DC 

X*031A* 

0684 

8500 



DC 

2*8500* 


RANGE OF 4 BYTES 

RAM ADDRE5S 

STARTS ON EVEN BOUndRY 


SEND LCT OUT 

DUMMY CCb TO nAKE LAST CHAKA FALSE 
ST ART 10 
TIME DtLAY 

FIND RAM ADDRlSS Tq READ P COUNTER 
GET READ SUBCn. 


READ P COUNTER BACK 


500 MS# DELAY 


GET SHOULD BE DATA 
SEE IF P COUNTER RIGHT? 

IF NOT EUUAL HALT 

INSTRUCTION TtST ERROR SR5 CONTAINS PCOUNTER 
GET BACK TESTcD CHANNEL 
BUMP CHANNEL NUMBER 
DO FOR NEXT CHANNEL 


LCT CCP POINTtR (MSB) 

CCP POiNIER USB) 

ADDRESS TESTING VALUE 

DITTO 

DITTO 

DITTO 

TLU POINTER, nSB 
TLU POiNIER, lSB 


MARKS END OF TABLE 


* OUTPUT INTERRUPT CONTROL TEST 




title DCMC1 

•REV. 

A • 
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001504 

0605 

6870 

4820 


INCONT 

LDR 

$R3 * =A•H • 




001505 

0607 

6F00 

1581 




STK 

$K3 * <ERMG +1 




001506 







CALL 

ZV$T.ZV$TC*TSTH 





0609 

FBCO 

0003 










060 b 

0380 

0000 

X 









0600 

0F80 











0662 

1524 










001507 

060 F 

6733 





CL 

= $R3 


R3 TRACKS ChANNEL 


001506 

06 C 0 

C380 

10EC 


IC0N3 

LNJ 

$64,<FLN 


FIND ACTIVE L*NE NUMBER 


001509 

06 C 2 

8382 





JMP 

$62 


NO MORt LINES 


001510 

06C3 

8C56 





STS 

= $R 6 


GET S KEG 


001511 

0604 

2570 

OFCO 




AND 

$R 6 ♦•FCO• 


STRIP 10 RETURN CHANNEL NUMBER 

Q01512 

06 C 6 

623F 





ADV 

$R6,=63 


SET FUR LEVEL 63 


001515 

06C7 

C380 

10FC 




LNJ 

$64 * <GENITZ 


GENERAL INITIALIZE 


001514 

06C9 

C800 

1565 




LDR 

$R4 * <CONT11 


OUTPUT INTERRUPT CONTROL 

FUNCTION 

001515 

06 Cb 

C380 

1173 




LNJ 

$64 * <CGSCH 


MODIFY FOR CHANNEL 


001516 

06C0 

8056 





10 

=$R6*s$R4 


OUTPUT INTERRUPT CONTROL 



06CE 

0054 










001517 

06CF 

0703 





6I0T 

>$*2+$AF 




001516 

0600 

F380 

125C 




LNJ 

$67,<EKR0R 


COMMAND WAS NaK»ED 


001519 





* 







001520 

0602 

C853 





LDR 

$R4,=$K3 




001521 

0603 

4F20 





MLV 

$R4 * = X * 20 * 


OFFSET FUR CHANNEL 


001522 

0604 

4E0C 





ADV 

$R4,=X»C» 


OFFSET FUR RETURN CHANNEL 


001525 

0605 

CF 00 

0620 




STR 

$R4 * <ICUN2 




001524 

0607 

bFOO 

14C0 




STR 

$R3 * <1PK 




001525 

0609 

3B00 

06DC 




6 EVN 

$R3i<1 CONI 




001526 

060b 

8803 





DLC 

s$R3 


GET KCV CHANNcL FOr BLOCK 

READ 

001527 





* 







001526 

060 C 

9380 

1098 


1 CONI 

LNJ 

$b 1 » <RDAT A 




001529 

0602 

14C2 





DC 

<TEhP 


read to here 


001530 

060 P 

0002 





DC 

2 


2 BYTES OF DATA 


001531 

0620 

0000 



1C0N2 

DC 

0 


RAM ADDRESS 


001534 

0621 

0000 





DC 

0 


EVEN 6 YTt ADDRESS 


001533 





* 







001534 

0622 

d800 

14CD 




LDR 

$K3.<TPR 


RE5T0Kt K3 


001535 

0624 

0800 

14C2 




LDR 

$R5.<T2MP 




001536 

0626 

0956 





CMR 

$R5.=$R6 


CHECK IS VS bo 


001537 

0627 

0903 





BE 

>$+2+$AF 




001536 

0628 

F 380 

125C 




LNJ 

$6 7 *<LKROR 


ERRUR, OUTPUT INTERRUPT CONIKOL 

001539 

06EA 

6 A03 





INC 

= $R3 


SET FUR NEXT CHANNEL 


001540 

062 b 

OF 8 1 

FF04 




B 

I CON 3 


DO NEXI CHAN 


001541 

001542 





* 







001543 





* 







001544 





* 

INITIALIZE 

AND CHANNEL RESET 

TEST 


001543 





* 







001546 





* 

FIRST GlVt GEN INITIALIZE 

+ CHECK IT CLtARS oCT Area 


001547 





* 







001546 

0620 

6870 

4A20 


IZTST 

LDR 

$R3 » = A * J • 




001549 

06 22 

6F00 

1581 




STR 

$R3,<EKMG«-1 




001550 







CALL 

zv$r .ZV$TC»TSTJ 





0621 

FBCO 

0003 










0623 

0380 

0000 

X 









06F5 

OF 60 











06F 6 

15F4 










001551 

06F f 

8753 





CL 

= $R3 


K3 TRACKS CHANNEL 


001552 

06 F 8 

C380 

102C 


IZTST 6 

LNJ 

$64,<FLN 


FIND ACTIVE LINES 


001553 

06 FA 

8382 





JMP 

$62 


NO MORE ACTIVt LINES 


001554 





* 







001555 

06 Fd 

C380 

0489 




LNJ 

$B4,<LCTGKb 


SEND GARBAGE TO LCt AREA 


001556 

06F0 

C800 

155C 




LDR 

$R4.<C0NT1 


IOLD FUNCTION CODE 


001357 

06 FF 

C360 

1173 




LNJ 

$64,<CGSCH 


MODIFY FOR ChANNEL 


001356 

0701 

CF52 





STR 

$R4,=$R2 




001559 

0702 

C800 

1563 




LDK 

$R4,<C0NT9 


INITIALIZE FUNCTION CODE 


001560 

0704 

C380 

1173 




LNJ 

$B4,<CGSCH 




001561 

0706 

8070 

6000 




10 

-Z•6000 *.=$R4 


INITIALIZE 



070o 

0054 










001364 

0709 

0 703 





BIOT 

>$+2+$AF 




001563 

070 A 

F 380 

125C 




LNJ 

$67,<2RR0R 


INITIALIZE WA^ NAK»ED 


001364 





* 







001565 

070C 

8 ICO 

0DC1 




I OLD 

TEMP«5$R2«s;X» 1 * 


GIVE ANOTHER INSTRUCTION 



070t 

0052 











0 7 0 F' 

0070 

0001 









001366 

0711 

0783 





61 OF 

>$+2+$AF 




001367 

0712 

F 380 

125C 




LNJ 

$b7*<ERROR 


SHOULD bt NAMED UNTIL INITIALIZE DONt 

001366 





* 







001569 

0714 

8070 

8000 




10 

=Z»8000»* = $R4 


GIVE ANOTHER INITIALIZE 



0716 

0054 










001370 

0717 

0783 





61 OF 

>$ + Z + $A|- 




001371 

0/16 

F 380 

125C 




LNJ 

$67 *<EKROK 


INITIALIZE DID NUT NAK’ED 


001372 





* 







001373 

071m 

C380 

1215 




LNJ 

$b4♦<DLAYLG 


DELAY 25 MS ************ 


001574 





* 

SET 

DEFAULT 

VALUE IN READ BUFFER 



001575 

07 1C 

9870 

0100 




LDR 

$R1* = X•100 » 




001376 

0712 

9F00 

1405 




STR 

$R1 * <RANGE 




0O1377 







CALL 

ZV$F*RTB«DFLT.RANGE 




0720 

FBCO 

0003 










0722 

0380 

0000 

X 









0724 

OF 60 











0723 

2 Bam 











0 726 

14B2 











072 7 

1405 










001376 





* 

READ 

IN LCT 

AREA FOR THIS CHANNEL MND CHECK 


001379 

0746 

C380 

07C3 




LNJ 

$64,<bRLCLR 


CHECK LCI IS CLEAR 


001580 

001381 

072A 

6800 

14CU 




LDR 

$K3i< TPK 


KESTORt CHAN NUMBER 


001582 





* 







001383 





# 

CHANNEL INITIALIZE TEST 




001384 





* 







001583 





* 

send our 

oARdAGE TU LCT AREA 



001586 





* 







001387 

07 2C 

C380 

0489 




LNJ 

$B4,<LCTGK6 




001386 

0 722 

C870 

0302 




LDR 

$R4,=Z»0302» 




001589 

07 30 

CF 00 

lECb 




STK 

$K4,<SDb*l6 




001590 

0732 

CFOO 

12CC 




STR 

$K4 %<SDd + 17 




001591 

0734 

CFOO 

12C0 




STK 

$K4,<SDb«-5 




Oo1592 

07 36 

CFOO 

1226 




STK 

$K4 9 < SDb + 46 




Ou 1593 

0736 

CFOO 

12EC 




STR 

$R4,<SDb+49 




001594 

07 3 A 

CFOO 

1220 




STR 

$R4,<SDb*37 




001595 

07 3C 

6380 

OFEO 




LNJ 

$B3,<SNDLCT 


SEND OUT LCT BYTES 


001596 

0732 

1 EbB 





DC 

<SDb 




001597 

0 7 3 F 

F FF F 





DC 

-1 
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001398 




* 






001599 




* 

NOW 

SET UP 

4 COB'S TO INSjRE 

INITIALIZE CLEARS IOLd POINTER 

OuibOu 

0740 

*9380 

0800 



LNJ 

Sbl* <5ET4 



OUlbOi 




* 

ADVANCE INPUT NtXT 51 AT POINTER 

A COUPLt UF TIMES -f 

001o02 

0742 

9380 

07F1 



LNJ 

sbl♦<A0V2 



001603 




* 

NOW 

GIVE CHANNEL INITIALISE 



GO 1 0 O 4 

0744 

0800 

1562 



LOR 

a»R4,<00NT7 


CHANNEL CONTROL 

001605 

0 746 

0380 

1173 



LNJ 

$B4,<CG5CH 


MODIFY FUR CHANNEL 

001 0 O 6 

0748 

8070 

8000 



10 

= 2*0000* * = $R4 




074A 

0054 








001607 

0 74b 

0703 




BIOT 

>$+2+$AF 



OOloOo 

0740 

F 380 

1250 



LNJ 

SB7 «<ERROR 


OUTPUT CHAW OuNT NaK*ED 

001609 

074E 

0380 

1203 



LNU 

$b4,<0LAY 


DELAY 23 MS 

001610 




* 

UbE 

OTHER 

SIOE UF LINE TO BLOCK 

READ COB AREA ♦ CHECK 

0016 1 1 

0 750 

bFOO 

1400 



STR 

$R3i<TPR 



001612 

0752 

3F20 




MLV 

$R3 * = X * 20' 



001613 

0733 

BA70 

OEOO 



AOO 

$R3,=2*0E00* 



001614 

0755 

6F 00 

075F 



STR 

SR3»<0A00 


ADDRESS OF START OF COB AREA 

0O1613 

0757 

b800 

1400 



lor 

SR3 *<TPR 



001616 

0759 

8B5 3 




LbO 

= $R3 * = 2'0001• 


GET OTHER SIDc OF LINE 


07 5 A 

0001 








OOloli 




* 






00161b 

0 7 3p 

9380 

1098 



LNJ 

SBl»<ROAT A 


BLOCK READ 

001619 

0730 

2BAA 




00 

<RTu 


RETURN BUFFER 

001620 

0 73E 

0020 




00 

X * 20 • 


20 BYTE RANGE 

001621 

G75F 

0000 


OAOO 

00 

0 


ADDRESS 

001622 

0760 

0000 




DC 

0 


EVEN BYTE BOUnDRY 

0Ulo23 




# 






001t>24 




* 

CHECK OONTKCL BYJtb WERE CLEARED 


001o25 

0 761 

1OFO 




LOV 

$Rl»=-4 



001626 

0762 

2005 




LOV 

*R2,=5 



001627 

0763 

DOAO 

2bAA 

UUP 

LOH 

$R3,<RTb*$R2 


GET CONTROL BYTE 

00162b 

0765 

5903 




btZ 

SR5♦>LUP1 


BRANCH IF GOOD 

001629 

0766 

F 380 

1250 



LNJ 

SB 1 * <tRROR 


CHAN IN1T * 01uN•T RESET DATA POINTERS IN LR 5 

001630 

0768 

2E08 


UUPi 

AOV 

SR2»=8 


SET FOR NEXT cONfRoL BYTE 

001631 

0769 

1 7FA 




biNC 

SR 1 * >LUP 


00 FOR NEXT 

00163c 

076A 

b800 

1400 



LOR 

SR3 * < TPk 


GET BACK TESTc,D SUBCHANNEL 

00 lt>33 




* 






001634 




* 

OHEOK INPUT NEXT STATUS WILL 

BE 

named after channel initialize 

001633 




* 






001636 

0760 

0800 

155F 



LuR 

SR4 » <00NT4 



001637 

0 761 

0380 

1173 



LNJ 

SB4,<CGS0H 



00163b 

0770 

8055 




IU 

= $R3 * =SR4 


GIVE INPUT NEXT STATUS COMMAND 


07 71 

0054 








001639 

0772 

0783 




BIOF 

>S + 2 + SbAF 


should be NAMED 

001640 

0773 

F380 

1250 



LNu 

Sb7,<tRROR 


command wasn*t nak»ed 

001641 

0775 

OF 07 




NOP 

>ECU2 



001642 




* 






001643 




* 

SET 

UP 4 00b* S AGAIN TO CHECK LOAD POINTtR WAS RESET 

001644 

011 0 

9380 

0600 

E003 

LNJ 

$B1* <SET4 



001643 

0778 

9380 

07F6 



LNJ 

SB 1» <CHKRNG 


CHECK STATUS POINTER IS CORRECT 

001o46 

0 7 7 A 

9380 

07F 1 



LNJ 

Sbl»<A0v2 


ADVANCE POINTER 2 

001647 




* 






001648 




* 

TEST 

RESET 

00b CIST COMMAND 



001049 




* 






001630 

07 70 

OF 8 1 

0002 

EC02 

b 

LC04 


SET OAIA BUFF POINTER'S NUN ZERO 

001631 

0771 

0700 




00 

<0TP1 



001632 

0 7 7 F 

0800 

1562 

tOG4 

LOR 

SR4 9 <C0NT7 


CHANNEL CONTRuL 

001653 

0781 

0360 

1173 



LNJ 

SB4»< CGSCH 


MODIFY FOR CHANNEL 

001654 

0 783 

8070 

0100 



iu 

-2*0100*,=SR4 


RESET CCb LIST 


0783 

0054 








001653 

0786 

0 703 




blOT 

>$+2*SAF 



001o56 

0 787 

F 380 

1250 



LNj 

SB t * <ERRGR 


COMMAND WAS NaMED 

001657 




* 

SET 

UP 4 00b*S AGAIN TO CHECK 

IF 

CCB RESET WORxS 

00165b 




* 






001659 

0789 

9360 

0800 



LNJ 

SB1?<SET4 


SET UP 4 CCB'o 

001660 

0 78b 

9360 

07F6 



LNJ 

SB1,<CHKRNG 


CHECK INPUT SIAT POINTER I S RESET 

001661 




* 






001662 




* 

NOW 

check 

CHANNlL LOT AREA WAS CLEARED BY INITIALIZE 

001663 




* 






001664 

0 7 80 

0380 

1177 



LNJ 

$B4,<0H0T 



001665 

0 7 8 F 

OF 82 




b 

>S + 2 



001666 

0790 

0100 




00 

X* 100 * 


RESET COB LIST 

001667 




* 






00lo6b 




* 






001669 




* 


SET UP 

OEFAULT 



00 lo70 




* 






001671 

0791 

4043 




LOV 

$R4,=X»45» 



001672 

0792 

CFOO 

1407 



STR 

SR4 »<RANGEW 



001673 

0794 

9380 

0411 



LNJ 

$B1i<5ET 



001674 

0796 

0380 

0703 



LNJ 

SB4,<bRL0LR 


OHEOK LCI AREa FOR CHAN IS CLEAR 

001675 




* 






001676 




* 

TEST 

bVBT 

♦ BVBF COMMANDS 



001677 




* 






00167b 

0798 

0380 

10F0 



LNJ 

SB4,<GENIT2 


GENERAL INITIALIZE 

001679 




# 






001680 

079A 

9360 

1069 



LNJ 

SB1$<SOATA 


SEND CHANNEL PROGRAM 

001681 

0790 

1470 




00 

<VALTST 


ADDRESS 

00168c 

0790 

004E 




00 

{ECP-VALTST)*2 


range 

001683 

0 7 91 

0200 




00 

X * 200 * 


RAM ADDRESS 

001684 

0 7 9 F 

0000 




00 

0 


EVEN OP ADDRESS 

001683 




* 






001086 




* 

SET 

UP ROV 

* XMII FOR P START 

AT 

200 

001687 




# 

% 





0ul68b 

07 AO 

B380 

OFCO 



LNJ 

SB3 *<SETLCT 



001689 

U7A2 

05A7 




‘ 00 

< 12L 



001690 




# 






001691 




* 

SEND 

' OUT 4 

COb»S WITH VALID BITS 

001692 

0 7 A3 

9380 

0800 



LNJ 

SB 1» <SET 4 



001693 




* 






001694 

07A5 

B380 

0628 



LNJ 

$B3,<STRT10 


START CHANNEL PROGRAM 

001695 

07A7 

0380 

1205 



LNJ 

SB4,<0LAY 



001696 

07A9 

0360 

1177 



LNJ 

SB4,<CH0T 


CHANNEL CONTRuL 

001697 

07Ab 

0F82 




B 

>S + 2 



001698 

Q7AC 

0100 




00 

X*100* 


RESET CCB LIST 

001699 




* 






001700 




# 

START SECONO HALF OF CHANNEL 

PROGRAM 

001701 




* 





ffi- 

001702 

07A0 

B380 

0628 



LNJ 

$b3,<STRTI0 



001703 

0 7AF 

0380 

1205 



LNJ 

SB4 * <OLAY 



001704 




* 

READ 

» P TO 

INSURt CORRECT CHAN 

1 PROGRAM OPERATION 

001705 

0161 

0380 

i 177 



LNJ 

SB4,<CHCT 


CHANNEL CONTRUL 

001706 

07b3 

0F82 




b 

>S + 2 
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GUI /07 
001 /Ob 
001709 
001710 
001711 
001712 
Ou1713 


0100 

C360 OE25 
E870 024C 
0956 
0903 

F 360 125C 


001765 
001766 
001767 
001766 
001769 
001770 
001771 
001772 
001773 


C3bO 1161 
C380 1161 
8381 


001790 

001791 

001792 

001793 

001794 

001795 

001796 

001797 

001798 

001799 

001800 

001801 


4C01 

C360 1189 
* 2BAA 
0040 
8AD4 
4005 
09F A 
8381 


X*100* 

$B4,<RPVLU 

$K6,=X*24C» 

$K5i=$K6 

>$+2*$AF 

$B7♦ <ERKOR 

= $K3 


00171a 

07BL 

OF 8 1 

FF39 

b 

1ZT3T6 

001713 




* 


001716 

07 CO 

coos 


OTPT OC 

2 * CU05 * 

001717 

07C1 

C02 5 


oc 

Z * CU25 • 

001/16 

07C2 

0000 


OC 

0 

001719 






001720 




# 


001721 




*SUBROUT1NES 

FOR 1N1UAL1ZI 

001 722 




* 


001723 




* 


001724 




* bLUCK i 

ktAO A CHANNEL 

001723 




* 


001 726 

07C3 

C853 


bRLCLR LOR 

$K4,=$R3 

001727 

07C4 

4F20 


MLV 

$K4,X*20* 

001 72b 

07C5 

CF 00 

0700 

STR 

$K4 » < 1 ZTST4 

001729 

07C7 

bP 00 

14C0 

STR 

$K3 * <lPR 

001730 

0 7 C9 

3B00 

07CC 

bEVN 

$K3 * <IZ1S12 

001731 

0 7 Cb 

6803 


otc 

= $K3 

001732 




* 


001733 

0 7CC 

9380 

1098 

IZTST2 LNJ 

$B1♦<KOAT A 

001734 

0 7 CL 

2bAA 


OC 

<RTb 

001735 

07CF 

0020 


oc 

X*2U» 

001736 

0700 

0000 


IZTST4 Oc 

0 

001 737 

0701 

0000 


OC 

0 

0U1738 




* 


001739 

0702 

B800 

14C0 

LOR 

$k 3 t < T PR 

001740 




# 


001741 




* CHECK ZERO 

*S WERE REAO I! 

001742 




* 


001743 

0704 

6756 


CL 

= $R6 

001744 

0703 

2C01 


LOV 

$R2»=1 

001745 

0 706 

0820 

2bAA 

1ZTST1 LOR 

$R5 *<KTb.$R2 

001746 

0708 

0956 


CMK 

$R5*=$R6 

001747 

0709 

0903 


bt 

>$-*-2 + $AF 

001746 

0 7 DA 

F 380 

125C 

LNJ 

$B7*<tRK0R 

001749 

07DC 

8AD2 


IZTST7 INC 

= $K2 

001750 

0700 

AP 5 7 


STR 

$K2 *5$K7 

001751 

070E 

3B90 


bOOO 

$R3 *>1ZTST 3 

001732 

070F 

A970 

0002 

CMR 

$K2 * = X * 0002 * 

001753 

0 7E1 

0901 

FFF A 

BE 

1ZT3T7 

001754 

0 7E3 

A970 

0004 

CMR 

$R2 * =X * 0004 * 

001753 

07E3 

0901 

FFF 6 

Bt 

1ZTJI7 

001756 

0 7 E 7 

A970 

OOOA 

CMR 

$K2,=X*000A* 

001757 

07E9 

0901 

FFF 2 

BE 

IZ T S T 7 

001756 

0 7 Eb 

A970 

000b 

CMR 

$R2 * = X•000b* 

001759 

0 /EO 

096 P 


bE 

> 1Z T ST 7 

001760 

07EE 

2010 


1ZTST3 CMV 

$R2 , = X»10* 

001761 

07 EF 

09E7 


bNE 

>iztst i 

001762 

07 FO 

8384 


JMP 

$b4 

001763 




* 


001764 




* 



RESET CCb LIST 
KtAO P 

************** 


BVB1* bVbF, Ok CCb LIST RESET ERROR 
BUMP TO NEXT CHANNEL 


RCV OAIA PTK 
XM1T OATA POINTER 
END OF LIST 


AREA TO CHECK ii*S CLEAR 

FORM RAM ADORtSS OF LCT AREA 


KEAO RAM 
RECEIVE BUFFER 

RAM AOORtSS 
START UN EVEN 


START WIIH wOkO 2 
GET LCI CONTENT 
IS LCT CONTEND 
CONTINUE IF ZtRO 
OR ELSE REPORI ERROR 
1NCREMEN( COUNTER 

bRANCh IF TRANSMIT CHANNEL 


IS IT bLUCK RuAO BIT 


OR CONIRUL WOkO 


ALL OONE 


* 00 TWO INPUT NEXT STATUS TO GET THE INPUT 

* NEXT STAT PUINTER A^A Y PKjM iT•S INITIAL ^TATE 

* “ 

ADV2 LNJ $B4 *< 1 NXT INPUT NEXT STaTUS 

LNJ $B4 * <INXT INPUT NEXT STATUS 

JMP $bl 

* 

* reao ranoe to insure input next status pointer is Reset 


001774 

0 7 F 6 

C800 

155F 

chkrng ldr 

$K4,<cONT4 

INPUT NEXT STATUS 

001775 

0 7F8 

C380 

1173 

LNJ 

$B4,<CGSCH 

MODIFY FUR CHANNEL 

001776 

07FA 

8040 

0CD3 

10 

TEMP,=$K4 

INPUT NEXT TO GET TO F 


07FC 

0054 





001777 

07FU 

0703 


BIOT 

>$4 2 4 $AF 


001778 

07FE 

F 360 

125C 

LNJ 

$B7 » <EKKOk 


001779 




* NOW INPUT 

RANGE. SHOUL0 BE = 1 

IF POINTtk WAS RESET 

001780 

0800 

4EP 2 


ADV 

$R4 * = -X•E * 


001781 

Ob 01 

8035 


10 

= SR3 « = $K4 

INPUT RANGE 


080c 

0054 





001782 

0803 

0703 


BIOT 

>$42 4$AF 


001783 

0804 

F 380 

125C 

LNJ 

$B7,<EKR0R 

COMMANO WAS NAKED 

001784 

0806 

6 CO 1 


LOV 

$R6 * = 1 


001785 

0807 

0956 


CMK 

$R5,=$k6 


001786 

0»08 

0903 


BL 

>$+4+$AF 


001787 

0809 

F 3 80 

125C 

LNJ 

$B7,<ERR0R 

INPUT ^>TAT POINTER NOT 

001788 




# 

EPOINTING 

AT FIRST CCB 

001789 

080 b 

8361 


JMP 

$B1 



UP 4 ccb*5 


$K4,1 
$64,<MCCB 
<KTb 
X * 40 * 

= $K4 
$R4 t 5 
>SET A 
$B1 


MAKE CCB 
VALIO CCB BIT 


001602 




* 


001603 




*- 


001604 




* 


001605 




* 


001606 




* 


001607 




- 


001806 

0815 

B870 

4B20 

ST10RC 

LOR 

001609 

0617 

BFOO 

1581 


STR 

001610 





CALL 


0619 

FBCO 

0003 




061B 

0360 

0000 

X 



0810 

OF 80 





08 1E 

1606 




001611 

08 1F 

C380 

10FC 


LNJ 

001612 

0821 

8753 



CL 

001613 

0822 

C380 

10EC 

RPSIO 

LNJ 


$K3 i =A * K ' 

$R3*<EKMG*1 

ZV$T.ZV$TC*TSTK 


$B4,<GENITZ 
= $R3 

$B4,<FLN 


R3 TRACKS CHANNEL 
FINO ACTIVE LINE 
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001814 
00181!? 
001816 
001617 
001618 
001619 
001620 
001621 
001822 
001623 
001824 
001826 
001626 
001627 
001628 
001829 
001630 
001631 
001632 
001833 


C360 0489 
B360 OFCC 
1EBB 
4C01 

C360 1189 


C360 1177 
0F82 
2000 

C380 1206 


BET UP CONDITIONS FOR STOP 10 TEST 


NO MQRt LINES TO TEST 


001840 

001641 

001842 

001643 

001644 

001646 

001646 

001647 

001646 

001649 

001860 

001651 

001852 

001653 

001654 

001855 

001656 

001657 

001856 

001659 

001860 

001861 

001862 

001863 

001664 

001665 

001666 

001867 

001668 

001669 

001870 

001671 

001672 

001673 

001674 

001675 

001676 

001677 

00l87o 

001679 

001680 

001681 

001882 

001683 

001864 

001685 

001886 

001687 

001686 

001689 

001690 


C380 084E 
6756 
D956 
0903 

F 360 125C 


C380 1177 
OF 82 
0000 

C380 1205 
8AD3 

OF 61 FFD5 


001691 

001692 

086E 

9870 

aC3 1 

001693 

08 70 

9F00 

1581 

001694 

0872 

FBCO 

0003 


0674 

D380 

0000 

001o95 

0676 

0877 

0876 

0F60 

160E 

C380 

090A 

001696 

067A 

OF 66 


001897 

067B 

0000 


001696 

087C 

0006 


001699 

067D 

0040 


001900 

087L 

0AB2 


001901 

067F 

0006 


001902 

001903 

00190A 

001905 

001906 

i860 

9870 

4C32 

001907 

0662 

9F00 

1581 

001906 

0684 

C380 

090A 

001909 

0886 

OF 86 


001910 

0667 

0001 


001911 

0668 

0006 


001912 

0669 

0040 


001913 

066A 

0AB2 


001914 

068B 

0006 


001915 

001916 

001917 

001916 

001919 





SB4,<LCTGRB 

SB3,<5ETLCT 

<St)B 

$R4 »s 1 

SB4,<MCCB 

<RTB 

X * 400• 


GIVE STOP I/O 


$B4,<CHCT 

>$♦2 

2 1 2000 * 

SB4 ,<DLAY 


FILL LC 1 AREA WITH DATA 
SEND OUT LCT BYTES 

RANGE 
DUMMY LCB 

RAM ADDRESS 

DO channel control 
STOP 10 


CHECK THAT STOP 1/0 OPERATED CORRECTLY 


001634 

0835 

C380 

1161 

LNJ 

SB4,<INXT 

INPUT 

NEXT STaTUS 

001635 




# 


001636 

0837 

E870 

1000 

LDR 

$R6 , =;X * 1000 * 

STAT 

COMPLETE BIT 

001637 

0839 

82D5 


LB 

=$RS,=X»1000* 




063A 

1000 






001638 

063B 

0503 


BBT 

>$+2+$AF 



001639 

083C 

F 360 

125C 

LNJ 

$B7,<ERROR 

STOP 

IU D1DN*T CAUSE STATUS COMPLETE 


INPUT LCT STATUS 

LNJ SB4 * <ILCT ST 

CL =SR6 

CMR $R5,=$R6 

BE >$+2+$AF 

LNJ $B7,<ERR0R STOP 10 DlDMj CLEAR LCT STATUS 

DO A CHANNEL INITIALIZE IN PREPARATION FOR THE NEXT TEST 


$B4,<CHCT 

>$♦2 

0 

$B4,<DLAY 


CHANNEL INITIALIZE 

TIME DELAY TO ALLOW INITIALIZE 10 COMPLETE 
SET FOK NEXT CHANNEL NUMBER 


* SUBROUTINES FUR STOP IU 


* INPUT LCT STATUS TO R5 

* 

ILCIST SAVE SAV2,=Z»AA88» 

LDR SR6 » = Z * 1137* 

LDR SR2 »sZ• 103 7• 
btVN *R3,<ILC1 

ADD SR2,=Z 1 2000 * 

ADD SR6 , -L * 2000 * 

ILC1 LDR SR1,5$R2 

LNJ SB4t<0UTLCT 

LNJ SB4 , < INBYTE 

STR $>R5,<TPR 

LDR $K1, = 3>R6 

LNJ $B4,<0UTLCT 

LNJ S>B4,<INBYTE 

SOR $R5*6 

UR $R5,<TPR 

RSTR SAV2»=Z'AA88» 


BRANCH IF RCV CHAN 


GET BY IE ADDRESS OF MSB UF ST AT 
OUTPUT BYTE 
INPUT BY IE TO R5 


OUTPUT BYTE 
INPUT LSB OF STAT 
MOVE OVER 

FORM WHOLE STAT WORD 


EXIT SUBROUTINE 


* RECEIVE TESTS 

# 

* 

* 1. EVEN bYTE START, EVEN RAN<aE, EOR TERMINATION 

* 

RCO LDR $K1 ,-A* LI• 

STR $R1,<ERMG+1 
CALL ZV$1• ZVsTC,TST L1 


SB4,<RCVTST 
>RCi 
0 
6 

X • 40' 

< L C T 2 
6 


RECEIVE IEST 

END RE I URN 

EVEN BYTE BOUi,DRY 

CCB RANGE 

CCB CUNTROL WuRD 

LCT TABLE 

NUMBER OF BYT tS 10 XFER 


ODD START,<EVEN RANGE, EUR TERM INAI I UN 

LDR $R1, = A * L2• 

STR $R1, <ERMG*1 

LNJ $B4,<RCVTST 

B >RC2 

DC 1 ODD BY IE BC 

DC 6 CCB RANGE 

DC X * 40 * CCB CONTROL 

DC <LC12 LCT TABLE 

DC 6 NUMBER OF £ 


ODD BY IE BOUNuRY 
CCB RANGE 
CCB CONTROL 
LCT TABLE 

NUMBER OF BYTcS TO XFER 


even start, even range, gnb termination 







001971 

001972 

001973 

001974 

U01975 

001970 

001977 

00197b 

001979 

001980 

001981 


00199* 


002008 

002009 

002010 


002020 

002021 

002022 

002023 

002024 

002025 

002026 

002027 

00202 b 


Qbto 

08Eb 

08EA 

ObEC 


9870 4D34 
9FOG 1581 
C3CQ 00B6 
OF 8 6 


TilLE DCMC1 

•REV, 

A* 




PACaE 21 


0U192G 

ObbC 

9870 

4C33 

RC2 

LDR 

SR 1, = A•L3• 



Ouly2l 

088E 

9780 

1561 


STH 

SR 1,<ERMG+1 



OUi922 

0890 

C380 

090 A 


LNJ 

SB4,<RCVT ST 

RECEIVE IEST 


001923 

0b9c 

OF 66 



b 

>RC3 

DONE 


001924 

0893 

0000 



DC 

0 

EVEN bYTE 


Ou1925 

0894 

0008 



DC 

8 

CCB RANGE 


001926 

0895 

0040 



DC 

X • 40 • 

CCB CONTROL WuRD 


001927 

0896 

0 Ab 1 



DC 

<LC T2A 

LCT 


00192b 
nnio9o 

0897 

0006 



DC 

6 

NUMBER OF BYTtS TO 

XFER 

001930 




* 





001931 




* 

4. EVEN 

START* ODD RANGE* 

GNB TERMINA1IUN 


001932 




* 





001933 

0896 

9870 

4C34 

RC3 

LDR 

SR1*=A»L4* 



UO1934 

089 A 

9 F 00 

1581 


STR 

$R 1 *<ERMb*-1 



001935 

069C 

C360 

090A 


LNJ 

SB4,<RCVTST 

RECEIVE IEST 


001936 

089E 

OF 66 



b 

>RC4 

DONE 


001937 

069F 

0000 



DC 

0 

EVEN BYTE 


00193b 

08 AO 

0005 



DC 

5 

CCB RANGE 


001939 

ObAl 

0040 



DC 

X * 40 * 

CCB CONTROL tojRD 


001940 

08A2 

OAbl 



DC 

< L C l 2 A 

LCT 


001941 

06 A3 

0003 



DC 

3 

NUMBER OF BYTtS TO 

XFER 

001943 




* 





001944 




* RECEIVE TESTS 



001945 




* 





001946 




*5. 

EVEN START, ODD RANGE* EOR 

termination 


001947 




# 





001946 

G6A4 

9870 

4C35 

RC4 

LuK 

SR 1 * ~A•L5 * 



001949 

0 8 A6 

9F00 

1581 


STR 

$Ri*<ERMG+l 



001950 

08A6 

C380 

090A 


LNJ 

SB4,<RCVT SI 

RECEIVE IEST 


001951 

08 AA 

0F66 



B 

>RC5 

RETURN 


001952 

ObAb 

0000 



DC 

0 

EVEN BYTE STAkT 


001953 

ObAC 

0005 



DC 

5 

CCB RANGE 


001954 

08 AD 

0040 



DC 

X • 40 • 

CCB CONTROL 


001955 

ObAE 

0AB2 



DC 

<LC 1 2 



001956 
nnioR7 

ObAF 

0005 



DC 

5 

NUMbER OF BYTtS TO 

XFER 

VUi 7-) I 









001958 




* 





001959 




* CCB OVER 

run test 



001960 




* 





001961 

ObdO 

9870 

4C36 

RC5 

LDR 

SR I * ^A * L6• 



001962 

0662 

9F00 

1581 


STR 

sri*<ermg+i 



001963 

0664 

C360 

090A 


LNJ 

SB4,<RCVT ST 



001964 

0bB6 

6362 



JMH 

SB2 

EXIT TEST 


001965 

06B / 

0000 



DC 

0 



001966 

OdBb 

0003 



DC 

3 

CCB RANGE 


001967 

0669 

1040 



DC 

X*1040* 

BIT 3 8EI FOR FLAG 

for CCB btRVICE 

001968 

Gb6A 

0AB2 



DC 

<LCT2 



001969 

0666 

0005 



DC 

5 

NUMBER OF bYTtS Tc 

i XFER 


* 

# 

** 

* 

*— 


* TRANSMIT TtSTS 

* 


1. EVEN START * EVEN RANGE, EOR TERM 


001982 

066C 

9870 

4D3 1 


TRANl LDR 

sRl*= a«mi• 

001983 

08BE 

9F00 

1581 


STR 

SRI,<ERMG+i 

001984 




CALL 

2VST,2VSTC,TSTMI 

ObCo 

FB CO 

0003 





08C2 

D380 

0000 

X 




06C4 

0F80 





001985 

08C5 

0bC6 

mi 

OODA 


LNJ 

Sb4,XTST 

001986 

06C8 

OF 86 



B 

>1RAN2 

001987 

08C9 

0000 



DC 

0 

001988 

08CA 

0006 



DC 

6 

001969 

ObCB 

0060 



DC 

-X * 60• 

001990 

ObCC 

OAAb 



DC 

<LCT 1 

001991 

ObCD 

0006 



DC 

6 


TRANSMIT TEST 
RETURN 
EVEN BYTES 
CCB RANGE 

COB CONTROL* tAST BLOCK 
NUMbER OF BYTtS TO XFER 


001994 



* 


001995 



* 2, 

ODD 

001996 



* 


001997 

ObCL 

9870 4032 

TRAN2 

LDR 

001998 

ObOO 

9F00 1581 


STR 

001999 

0802 

C3C0 OOCE 


LNJ 

002000 

0804 

0 F86 


b 

002001 

0605 

0001 


DC 

002002 

08 D6 

0006 


DC 

0U2003 

0607 

0060 


DC 

002004 

0808 

OAAB 


DC 

002005 

0809 

0006 


DC 

002006 



* 


002007 



* -- 



000 START *<EVEN RANGE 


$Rl*sA»M2» 
SR1*<ERMG*1 
SB4 *XTST 
>TRAN3 
1 
6 

=X»60« 

<LC I 1 
6 


TRANSMIT TEST 

000 bY»E 
CCB RANGE 

CCB CONTROL WORD* LAST BLOCK, VALID 
LOT 

NUMbER OF BYTtS TO xFE« 


3. EVEN START, EVEN RANGE* GNfcj TERMINATION 


002011 

08DA 

9870 4D33 

TRAN3 LDR 

SRI,=A*M3» 

002012 

ObDC 

9FOO 1581 

STR 

SR 1,<EKMG*1 

002013 

06DE 

C3C0 00C2 

LNJ 

SB4,XTST 

002014 

OoEO 

0F86 

B 

>TRAN4 

002U15 

OdEi 

0000 

DC 

0 

002016 

ObE2 

000 b 

DC 

6 

002017 

08E3 

0060 

DC 

X * 0060 * 

002018 

ObE4 

0 AAA 

DC 

< L C T 1A 

002019 

08E5 

0006 

DC 

6 


* 

# 

* 

* 

# 

TRAN4 


TRANSMIT TEST 

RETURN 

EVEN bYTE 

CCB RANGE 

LAST BLOCK, VALID 

LCT 

NUMBER OF BYTtS TO xFER 


4, EVEN START, 000 RANGE, GNB TERMINATION 


LOR 

STR 

LNJ 

B 


SRI,sA * M4 * 
SR 1,<ERMG+1 
SB4,XTST 
>TRAN5 


TRANSMIT TEST 
RETURN 
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002029 

06 tU 

0000 




DC 

0 


002030 

Odtt 

0008 




DC 

6 

CCB RANGt 

002031 

08EF 

0060 




DC 

X * 60 * 

CCB CONTROL* EAST BLOCK 

00203* 

08F0 

OAAA 




DC 

<LCT1A 

LCT 

002033 

002034 

08F1 

0005 



* 

DC 

5 

NUMBER OF BYTeS TO xfeR 

002033 









002036 





* 




002037 





* 5. 

EVEN 

START, ODD RANGE* tOR 

terminaiiun 

00203d 





* 




002039 

06F2 

9870 

4035 


TRANS 

LOR 

bRl*=A»M5» 


002040 

06F4 

9F00 

1581 



STK 

SKI *<EKMGU 


002041 

06 F6 

C3C0 

OOAA 



LNJ 

SB4* XTST 

TRANSMIT TEST 

00204c 

06 F 6 

OF 8 6 




b 

>TRAN6 


002043 

06F9 

0000 




DC 

0 

EVEN bI ART 

002044 

06Fa 

0005 




DC 

5 

RANGE (CCB) 

002043 

06Fo 

0060 




DC 

X 1 60 * 

CCB CONTROL * LAST BLOCK 

002046 

06FC 

OAAb 




DC 

<LC I 1 

LCT 

002047 

002046 

ObFu 

0005 




DC 

5 

NUMBER OF BYTlS TO XFER 

002049 





* 




002050 





* CCB 1 

UNDER- 

•RUN TEbI 


002u51 





* 




002052 

06FL 

9870 

4036 


TRAN6 

LDR 

SRI*=A*M6» 


002u53 

0900 

9 F 00 

1561 



STK 

SKI *<ERMG*-1 


002054 

0902 

C3C0 

009E 



LNJ 

SB4,X1ST 

TRANSMIT 

002055 

0904 

838* 




JMP 

SB2 

EXIT TEbI 

002056 

0903 

0000 




DC 

0 

EVEN bTART 

00*057 

0906 

0005 




DC 

5 

CCB RANGt 

OU2056 

090 7 

1040 




DC 

X*1040* 

NOT LAST CCB 

002059 

0906 

OAAb 




DC 

<LC | l 

LCT 

002060 

0909 

0006 




DC 

6 

XMIT 5 

002061 





* 




002062 









002063 





* 




002064 





* RECEIVE TEST 


002065 





* 




00206o 





* LNJ ib4. 

<RCVT b1 


002067 





* b : 

>NtXT 



002O66 





* PC 

A 

1= ODD BYTE 


002069 





* DC 

b 

RANGE IN BYTtb 


00207O 





* DC 

C 

CCb CONTROL WORD 

002071 





* DC 

D 

POINTS TO LCT TABLE 

00207* 
n n 7 <.7 'x 





* DC 

t 

NUMBER OF BYTEb 

TO XFER 

002074 

09GA 

6F40 

0C1C 


RCVTST 

SAVE 

SAV4* = X« 547C* 

Rl*3*4* bl*2*3*4*5 

002073 

0900 

9670 

0200 



LOR 

3>R1» = X*200» 

P COUNItK START 

002076 

090F 

9F00 

0A5A 



STR 

bRl,<KCWRl 


002077 

0911 

9874 




LDR 

$R1, + $B4 

DUMMY 10 INCREMENT B4 

002076 

0912 

9874 




LDR 

SRI,+SB4 

OOO/EVtN FLAG 

002079 

0913 

9FOO 

09 5 F 



STR 

SRI,<KCV1 


002080 

0913 

9F00 

0966 



STR 

$R1*<KCV2 


002081 

0917 

9F00 

096F 



bTR 

$R1*<RCV3 


002082 

0919 

9F00 

098b 



STR 

SKI*<NCV4 


002O83 





* 




002084 

091b 

9874 




LOR 

SRI* + SB4 

PICK UP RANGE 

002085 

09 1L 

9 FOG 

096b 



bTR 

SR 1 * <RCV7 


002086 





* 




002067 

09 11 

9874 




LDR 

SRI*+SB4 

pick up ccb control word 

002086 

091 F 

9F00 

0970 



bTR 

SKI*<KCV9 


002089 





* 




002090 

0921 

9CF4 




LOb 

Sbl*+SB4 

LCT POINTER 

002091 

0922 

9F60 

096E 



b Tb 

SB1* <KCV10 


002092 





* 




002093 

0924 

9874 




LOR 

SRI, + SB4 

PICK UP NUMbtR OF BYTES 

002094 

0923 

9F00 

098C 



bTR 

$R1 * <RCV8 


00*095 

0927 

9F00 

095E 



bTR 

$R1,<KCV5 


002U96 

0929 

9F00 

0964 



bTR 

$R1*<KCV6 


002097 

092d 

6700 

14CC 



CL 

<F LaG 


002096 

0920 

9900 

096b 



CNR 

$R1» <RCV 7 

COMPARE RANGE WITHBYTES TO KCV 

002099 

092 F 

090C 




bE 

>RCV13 


002100 

0930 

0206 




bL 

>RCV14 


002101 

0931 

0800 

096b 



LDR 

SR5,<KCV7 


002102 

0933 

OF 00 

095E 



bTR 

$R3 *<KCV5 


002103 

0935 

OF 00 

098C 



bTR 

$K5 * <KCV8 


002104 

0937 

OF 84 




b 

>KC V 1 3 


002103 

0938 

4C20 



KCV14 

LDV 

SK4*~X»20» 

FLAG SET FOR ,hQN ZERO RANGE RESIDUE 

002106 

0939 

CFOO 

14CC 



bTR 

SR4 * <FLAG 


00210/ 

093b 

1008 



KCv 13 

bOL 

SR 1 * 8 

FORM RANGE 

002108 

09 30 

9670 

003F 



XUR 

SRI * = X»3F• 


002109 

093L 

9F00 

0Ab2 



bTR 

$R1,<LCT2 


002110 





* 




002111 

0940 

6753 




CL 

= SR3 


002112 

0941 

C360 

10EC 


NX KCV 

LNJ 

SB4 *<FLN 

FIND ACTIVE LINE 

002113 

0943 

OF'6 2 




b 

>S*2 


002114 

0944 

OF 83 




b 

>$♦2 + SAF 


002113 

0945 

OF 6 1 

0057 



6 

RCENO 

NO MORE LINES 

002116 

094 7 

3B03 




btVN 

SR3 * >KCV12 

BRANCH MtANS KCV CHAN 

002117 

0946 

8A03 




INC 

= $K3 


0021 lb 

0949 

OF F 8 




b 

>NXRCV 

TRY NEXT 

00*119 

094 A 

C853 



KCV 12 

LuR 

SR4,?SR3 


002120 

094b 

4F 20 




MLV 

SR4 * = X•20' 

FORMS LCI START 

002121 

094C 

At 39 




adv 

$R4,s5 / 


002122 

0940 

CFOO 

0965 



bTR 

SR4 * <RC11 

RAM ADDRESS WnERE DATA GOES 

002123 

094F 

bFOO 

0950 



bTR 

SR3 * <KCDA7 A 


002124 





* 




002125 





* FILL 

receive buffer with default 


002126 





* 




002127 






CALL 

ZVSF *RTB*DFLT*BUPKNg 



0951 

FbCO 

0003 







0933 

0360 

0000 

X 






0953 

0F60 








0956 

2bAA 








0957 

146E 








0956 

14C6 







002126 

09 59 

C360 

10FC 



LNJ 

SB4,<GENITZ 

MECC GtNtKAL iNITUl I7E 

00*129 





* FILL 

bEND 

BUFFER WITH bb DATA FOR CQMPAKIbON LATER 

002130 

095b 

C380 

0Ab8 



LNJ 

SB4 * <FOTA 

FILL ASCtNDIN\j DATA 

002131 

0950 

0000 



KCOATA 

DC 

0 

starting BYTE 

00*13* 

095b 

0000 



KCV5 

DC 

0 

RANGE IN BYTES 

002133 

002134 

095F 

0000 



KCV 1 

* 

DC 

0 

l = STAR! ON RIGHT BYTE 
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00213b 

002130 

002137 

00213b 


* bLOCK WRIT 

* TRANSFERED 


t DATA TO RAM# 
TO'CPU BY THE 


U02139 

002140 

0960 

8AD3 


# 

INC 

= $K 3 

002141 

0961 

9380 

1069 


LNJ 

SBl *<SDAT A 

002142 

0963 

1 EBB 



DC 

< SDu 

0U2 jl 43 

0964 

0000 


RC V 6 

DC 

0 

002144 

09ob 

0000 


KCU 

DC 

0 

00214b 

0966 

0000 


RCV2 

DC 

0 

002i46 

002147 

096 7 

88D3 


* 

DEC 

= $R3 

00214b 




* 



002149 




* RECEIVE A 

bLOCK OF DATA 

002150 

002151 

0968 

C380 

0A36 

* 

LNJ 

$B4,<RCV 

00215* 

096A 

2BAA 



DC 

<RTb 

002153 

096t> 

0000 


RCV7 

DC 

0 

002154 

096C 

13D7 



DC 

<RCDT C1 

002155 

096D 

00A6 



DC 

{RCR T1-RCDTC: 

0021 bo 

096E 

14C7 


RCV10 

DC 

<DUMMY 

002157 

096F 

0000 


RCV3 

DC 

0 

00215b 

0970 

0000 


RCV9 

DC 

0 

002159 




# 



002160 




* READ 

AND 

CHECK STATUS 

002161 

002162 

0971 

C380 

1161 

* 

LNJ 

SB4 » < 1NXT 

002163 

0973 

E870 

1000 


LDR 

$R6,=X»1000* 

002164 

0975 

E600 

14CC 


XUR 

$R6 *<FLAG 

002165 

0977 

D95b 



CMR 

$K5 * = SR6 

002 i66 

0978 

0903 



BE 

>$+*+$AF 

002167 

0979 

(-380 

125C 


LNJ 

SB7,<ERR0R 

00216b 

097b 

8756 



CL 

= $Rb 

002169 

097C 

82C0 

FFF 3 


Lb 

RCV9,=X»1000' 


097E 

1000 





0021 7u 

097F 

8 A56 



LBS 

=SRb,=X»800» 


0980 

0800 





002171 




* 



002172 




* READ 

LCT STATUS 

002173 

002174 

0981 

C380 

084E 

* 

LNJ 

Sb4,<iLCTST 

00217b 

0983 

D570 

0800 


AND 

$R5,=X»800» 

00217b 

0985 

0956 



CMK 

$R5 * = $Rb 

002177 

098b 

0903 



BE 

>$+2+$AF 

00217b 

002179 

0987 

F380 

125C 

* 

LNJ 

Sb7,<ERR0R 

002180 




* CHECK DATA 


002181 

002182 

0989 

D380 

0A7F 

* 

LNJ 

$B5*<CHKBW 

002183 

098b 

0000 


RCV4 

DC 

0 

002184 

098C 

0000 


RCV8 

DC 

0 

002185 




* 



00218b 




* check data 

bUFFtR PUINTEf 

002187 




* 


002188 

098D 

9870 

0537 


LDR 

$R1,=X*0537* 

002189 

09 8 F 

C380 

OEOC 


LNJ 

$B4,<0UTLCI 

002190 

0991 

C380 

11A8 


LNJ 

$B4»<INBYTE 

002191 

0993 

0570 

COOO 


AND 

SR5 * =Z * COOO * 

002192 

0995 

8756 



CL 

= $Rb 

002193 

0996 

0956 



CMR 

$R5,=$R6 

00*194 

0997 

0903 



BE 

> R C v 11 

002195 

0998 

F 380 

125C 


LNJ 

$B7,<ERR0R 

002196 

099A 

8 AD3 


RCV11 

INC 

= $KJ 

002197 

002198 

099B 

OF 8 1 

FFA5 

* 

B 

NXRCV 

00*199 




* 



002200 

099D 

BFCO 

0B89 

RCEND 

RSTR 

SAV4*=X* 547C 1 


099F 

547C 





002201 

002202 

002203 

09 AO 

8384 


* 

JMP 

$B4 


00220a 

002^05 

002*06 

002*07 

00220 b 

002*09 

002210 

002211 

002*12 

002213 

002*14 


DURING RECEIVE THIS uATA WILL Bt 
CHANNEL PROGRAM* 

GET XMlT HALT- OF UnE 

SEND DATA 
FROM HERE 
RANGE IN BYTEj 
RAM AUDREbb 

1 = bTARI UN RIGHT BYTE 

get back to receive 


READ TU HERE 
RANGE 

CHANNEL PROGRAM ADDRESS 
CHANNEL PROGRAM RANGE 
LCT PARAMETER TABLE 
1 = bT art on right byte 
ccb control word 


INPUT NEXT SIaTuS 
CCB COMPLETE oIT 
NON ZERO RANGl 
RESIDUE BIT 

STATUS ERROR 

GET FLAG FOR lCB ERROR 

SET CCB SERVICE ERROR BIT 


READ LCT STATuS 
STRIP 10 SERVICE ERROR 


CCB SERVICE EkROR BIT IN WRONG STATE 


CHECK ROUTINE 
1 = STAR! ON RIGHT BYTE 
RANGE IN BYTEo 


CLEARED TO 0 


OUTPUT BYTE 
INPUT BYIE 
STRIP 10 DATA PTR 


GNB DIDN’T RE JET DATA PTR’S 


DO NEXI LINE 


* DATA TRANSMIT TES! 

* 

* LNJ $64 * XTST 

* B >NtXT E 

* DC 0 1 

* DC X R 

* DC Y C 

* DC 2 P 

* DC W N 


EXIT BRANCH 

1 = ODD BYTE 

RANGE IN bYTES 

CCB CONTROL WORD 

POINTER TO LCT PARAMETER TABLt. 

NUMBER OF BYTES TO xfer 


002215 

09A1 

8F40 

0B85 

XTST 

SAVE 

SAV4 * sX 1 547C* 

R1 * 3 *4 * bl*2.3*4,5 


09A3 

547C 






002*16 

09A4 

9874 



LDR 

$R 11+ $B4 

DUMMY 10 INCREMENT B4 

002217 

09A5 

9874 



LDR 

SR 1 * +$B4 

PICK UP EVEN* ODD FLAG 

002*18 

09 A6 

9F00 

09E4 


STR 

$R1,<CHST1 

STORE FLAG FUR ODD OR EVtN BYTt 

002219 

09A8 

9F00 

09EC 


SIR 

$R1♦<CHST 2 

002220 

09 AA 

9F00 

0A1C 


STR 

$R1,<CHST3 


002221 

09 AC 

9F00 

0A20 


STR 

$R1 * <CHST 4 


002222 

09AE 

9874 



LDR 

$R1 *♦SB4 

PICK UP RANGE 

002223 

002224 

09 AF 

9FOO 

09E8 

* 

STR 

SR 1 * <CHRG2 


002225 

09BI 

8752 



CL 

= $R* 


002226 

09B2 

9874 



LDR 

$Ri* + SB4 

pick up ccb control word 

002*27 

09B3 

82D1 



Lb 

= $R1 * X * 40 * 

GET LAST BLOCK BIT 


09B4 

0040 






002228 

09B5 

0503 



BBT 

>XTST2 

BRANCH IF NO UNDER-RUN 

002229 

09B6 

A870 

0800 


LDR 

$R2,sX*800» 

UNDER-RUN EXPlCTED 

002230 

09B8 

9P00 

09ED 

XTST2 

STR 

SR1*<CCBSAV 


002231 

002*32 

09bA 

AFOO 

14CC 

* 

STR 

SR2»<FLAG 

o mean;* no ccb under-run 

002233 

09BC 

9CF4 



LDB 

SB1* +SB4 

PICK UP LCT POINTER 

002234 

002235 

09BD 

9F 80 

09EB 

* 

ST b 

$blt<BWLCT 


00223b 

09BF 

9874 



LDR 

SRI*+ SB4 

PICK UP NUMBER OF BYTES 

002237 

09C0 

9F00 

0A21 


STR 

SRI,<CHRG4 

NUMbER OF BYTtS TO CHECK 

002*38 

09C* 

9900 

09E8 


CMR 

SR 1 * <CHRG2 

002*39 

09C4 

0383 



bLE 

>XTST 3 


002240 

09C5 

9800 

09E8 


LDR 

SR 1* <CHRG2 


002241 

09C7 

9F00 

OAIA 

XTST3 

STR 

SRI*<CHRG3 


002242 

09C9 

9F00 

09E3 


STR 

$R1,<CHRG1 
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002243 

09CB 

9800 

0A21 


LDR 

$R11 <CHRG4 

002244 

09CD 

1008 



SUL 

$R1 *6 

002245 

09CE 

9670 

003F 


XUR 

3>R 1 » = X • 3F * 

002246 

G9D0 

9F00 

OAAB 


STR 

$R1♦<LCT1 

002247 




* 



002246 

09D2 

8753 



CL 

= S>R3 

002249 

09D3 

C380 

10EC 

NXWRT 

LNJ 

$B4»<FLN 

002250 

09D5 

0F82 



B 

>$♦2 

002451 

09D6 

OF 83 



B 

>$+2*$AF 

002252 

G9D7 

0F81 

005A 


b 

BWEND 

002253 

09D9 

3B83 



BODD 

► $R3,>XTST1 

002254 

09DA 

8AD3 



INC 

= $R3 

002255 

09DB 

OFFS 



B 

>NXwRT 

002256 

09DC 

BF 00 

09E2 

XT ST 1 

STR 

$R3,<EQDATA 

002257 

09DE 

C360 

10 FC 


LNJ 

$B4,<GEN1TZ 

002256 




* 



002259 

09E0 

C380 

0AB8 


LNJ 

SB4,<FDTA 

002260 

09L2 

0000 


EODATA 

DC 

0 

002261 

09E3 

0005 


CHRG1 

DC 

5 

002262 

09E4 

0000 


CHST1 

DC 

0 

002263 




* 



002264 

09E5 

C380 

0A74 


LNJ 

$B4 *<wKT 

002265 

09 tr 

1 EBB 



DC 

<SDb 

002266 

09E8 

0005 


CHRG2 

DC 

5 

002267 

09E9 

1361 



DC 

<TRANM1 

002266 

09EA 

OOAC 



DC 

(RCD f Cl-T RANM1) # 

002269 

09EB 

14C7 


BWLCT 

DC 

<DUMMY 

002270 

09 EC 

0000 


CHST2 

DC 

0 

002271 

09ED 

0000 


CCbSAV 

DC 

0 

002272 




* 



002273 




* READ 

AND 

CHECK STATUS 

002274 




* 



002275 - 

09EE 

8 7 56 



CL 

= $Ro 

002276 

09EF 

C380 

1161 


LNJ 

SB4,<INXT 

002277 

09F1 

82C0 

FFFB 


LB 

CCBSAV»sX*0020• 


09 F 3 

0020 





002276 

09F4 

8A56 



LbS 

=$R6i=Z*0020* 


09 F5 

0020 





002279 

09 F 6 

8280 

09ED 


LB 

<CCbSAV*=X*1000* 


09F6 

1000 





002280 

09F 9 

0583 



BBF 

>NXT 1 

002281 

09FA 

D570 

1000 


AND 

$R5*=Z*1000* 

002282 

09FC 

E470 

1000 

NXT 1 

OR 

$R6,=Z*1000* 

002283 

09FE 

D956 



CMR 

SR5 * = $R6 

002484 

09 F F 

0903 



bE 

>$*2+$AF 

002285 

OAOO 

F380 

125C 


LNJ 

$B7 *<ERROK 

002286 

0 A02 

62C0 

FFEA 


Lb 

CCBSAV * = X*1000 • 


0A04 

1000 





002287 

0A05 

8756 



CL 

= $R6 

002268 

0A06 

6 A56 



LBS 

=SR6t=X»800* 


QA07 

0800 





002489 




*#* 



002290 




# 



002291 




* READ 

LCT 

STATUS 

002292 




* 



002293 




*** 




FIND ACTIVE LINE 


NO MORE LINES 
BRANCH MEANS aMIT CHAN 

TRY NEXT 

GENERAL INITIALIZE 

FILL SUB WITH ASCENDING DTA 
FIRST DA T A WORD 
RANGE IN BYTES 
1 = START ON RIGHT BYTE 


SEND BUFFER 
RANGE 

CHANNEL PROGRAM 
RANGE UF XMIT PROGRAM 
LCT PROTOTYPE 
0 * EVtN STAR! 

CCB CONTROL WORD SjoRED HERE 


INPUT NEXT STATUS 
GET LAST BLOCK BIT 

SET CCB LAST oIT Tq EXPECTED STATE 


BRANCH IF NOT UNDERUN TEST 

SET STAT COMP. BIT 
IS VS SB 


STATUS ERR AFTER XmiT 
GET CCB UNDERRUN FLAG 


ccb service error bit 
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0A3b 

tCb4 








002350 

0A39 

9870 

0200 


LDR 

*RU = X»2Q0* 




002351 

0A3 b 

9F00 

0A5A 


STR 

$R1,<KCWRI 




^ 002352 

0A3D 

ACF4 



60b 

SB29+SB4 



LOAD SB2 WITH A00RF55 

■ 002353 

0A3E 

C874 



LOR 

SK4t*SB4 



LOAD SK4 WITH NUMBER OF BYTtS 

1 002354 

0A3F 

0870 

5555 


LDR 

$R5»=Z»5555» 



LOAD $K5 WITH INITIAL PAITEKN 

% 002355 

0A41 

OF 02 



bTR 

bR5*bb2 



STORE AT TOP AND BOTTOM UF BUFFtR 

^ J 002356 

0A42 

CF52 



bTK 

bR4,sjR2 




002357 

0A43 

8A02 



IRC 

= $R2 



FIND IROtX TO LAST WORD 

00235b 

0A44 

2041 



bOR 

*K2 • 1 



R2 HAS WORDS ♦ 1 

002359 

0A45 

0F22 



bTR 

$R5*bb2.bR2 




002360 




# 






002361 

0A46 

bCF4 


WKT1 

LDb 

ib3***b4 



LOAD Sb3 WITH ADDRESS OF CHANNEL PROG. 

002362 

0A47 

bFBO 

0A58 


bib 

$B3 »<RCV2M 




002363 

0A49 

AF80 

0A67 


bTb 

$B29 <KCV3M 




002364 

UA4B 

9874 



LOR 

$R1**$B4 



RANGE OF CHANNEL PROGRAM 

002365 

0A4C 

9F00 

0A59 


bTR 

a»Rlt<RCWR 




002366 

0A4E 

bCF4 



LOb 

Sb 3t+$B4 



PICK. UP AOOREbS OF LCT TABLE 

002367 

0A4F 

dFbo 

0A60 


bTb 

$B3 * <RCLCT 




00236b 

0A5 1 

CFOS 



bTb 

bB4»s$B5 




002369 

0A32 

bFOO 

14C0 


bTR 

SR3 9<TPK 



FIND WRITE CHANNEL 

002370 

0A54 

3B82 



bOOO 

SK3 *>KCV1M 




002371 

OA55 

bAD3 



IRC 

= $K3 




002372 

0A56 

9380 

1069 

KCV1M 

LNJ 

Sbl*<bOATA 



WRITE OUT CHANNNtL PROGRAM 

002373 

0A5b 

14C7 


RCV2M 

OC 

<DUMMY 



CHAN PROG 

002374 

OA59 

0000 


KCWk 

OC 

0 



range of channel program 

002375 

0A5A 

0200 


RCWKI 

OC 

X 1 200 * 



RAM ADDRESS 

002376 

0A5b 

0000 



OC 

0 



RIGHT BY 1E START 

002377 




* 






00237b 

0A5C 

b800 

14 CO 


LOR 

$K3 9 < T PR 




002379 

0A51 

B3B0 

OFCC 


LRJ 

Sb3 *<b6TLGT 



SEND OUT LCT dYTES 

002380 

0A60 

14C7 


KCLCT 

OC 

< DUMMY 



LCT TAbLt ADDRESS 

002381 




* 






002382 

0A61 

9B75 



LOR 

Ski*+$B5 



LOAD SRI WITH iNOtx 

002383 

0 a62 

A875 



LOR 

$R2 »♦$B5 



GET CCb CONTROL WORD 

002384 

0A63 

AF 00 

0A68 


bTR 

bR2,<RCV4M 




002385 

0A63 

C3B0 

1189 


LRJ 

Sb4,<MCCB 



FORM CCb FOR NORMAL OPERATION 

002386 

0A67 

14 C 7 


RCV3M 

DC 

<OUMMY 



GPU DAI A ADDRESS 

002387 

0A68 

0010 


KCV4M 

OC 

Z'OUIO* 



CCB CONTROL WORD 

002388 




it 






002889 

0A69 

B902 



CMZ 

= SR2 




002390 

0A6A 

0803 



bAL 

>OOLA 



BRANCH MtANS FLAG SET TO BYPASS START 10 

002391 

0A6b 

b380 

0628 


LRJ 

$B3*<bTRT10 




002392 




it 






CU2393 

0A60 

C380 

1205 

OOLA 

LRJ 

SB4,<DLAY 



TIME OtLAY 

002394 




it 






002395 

0A6F 

CC05 



LDb 

SB4 « = SB5 




00239b 

0A70 

BF CO 

0AA6 


RbTR 

bAV3 * sZ•6CB4 * 





0A7 2 

LCb4 








002397 

0 A 7 3 

B3B4 



JHP 

SB4 




002396 




it 






002399 




it 






002400 




* 6LNJt$b4,< 

aKT 




002401 




*EOCLCPU ADDKtSS OF BUFFER 




002402 




* tOCtKARGE 

VALUE 




002403 




*EDCECPU ADRESS OF CHANNEL PROGRAM 


002404 




* 

OC 

RANGE OF 

CHARNEL PROGRAM 

m 002405 




* 

OC 

LCT PARAMETER 

TABLE 

X 002406 




*eoceq 

OR 1 

000 OK EVER BYTE 

bUFFER ADDRESS START 

' 002407 




* 

OC 

CCB CONTI 

ROL 

WORD. 

00240b 




* 






002409 




* 






002410 

0A74 

8F40 

0 AA2 

WRT 

SAVE 

bAV3isZ * ECB4• 



SAVE KEGS* RU294959 B293 95 W<M 


0A76 

LCb4 








002411 

0 A 7 7 

ACF'4 



LDo 

SB2i♦$B4 



LOAD SB2 WITH CPU ADDRESS OF BUFFER 

002412 

0 A78 

CB74 



LOR 

SR4,+$b4 



LOAD SR4 WITH NUMBER OF BYTtS 

002413 

0 a7 9 

9870 

0400 


LOR 

SKI,=X»400« 




002414 

0A7b 

9FO0 

0 A5 A 


SIR 

$R1,<KCWR1 



STORE P COUNTER START 

002415 

0A7D 

0 F 81 

F FC8 


b 

WRIT 




002418 




* 






002417 




* CHECK SEND 

VS* KCV BUFFERS 

ON 

A 

BYTE BY BYTE BASIS. 

00241b 




* 






002419 




* LNj SB5* 

<CHKBW 




002420 




* PC 

0 

1= START ( 

OR 

RIGHT BYTE 

002421 




* OC 

X 

RANGE I\ 

BYTES 


002422 




* 






002423 

0 A7 f- 

9875 


CHKbW 

LOR 

SRI*+$b5 



SET BY IE 1NOEa 

002424 

0 ABO 

AB7 5 



LOR 

SR2 9+SB5 




002425 

OAbl 

8252 



NEG 

= SR4 



RANGE 

002426 

0 A82 

bbbO 

lEbb 


LAb 

Sb3,<bOb 



AOOKESb UF SEND BUFFER 

002427 

0 Ab4 

EbbO 

2bAA 


LAb 

*B6»<Rlb 



AD0RES6 OF RtCEIVE BUFFER 

00242 o 




* 






002429 

0Ab6 

0096 


CHK1 

LOH 

SR5 9 Sb6 * SR 1 




002430 

OAb / 

EOOF 



LOH 

$K6,Sb3.+$Kl 



GET StNT DATA 

002431 

0A88 

0106 



c m 

SR3*=SR6 




002432 

0A89 

0903 



b6 

>S+2+SAF 




002433 

OAb A 

F 380 

125C 


LiMJ 

Sb J *<LRKOR 



OATA ERRUk 

002434 

0 ABC 

2780 

0A86 


biRC 

SR2 *<CHK1 




002433 




* 






002436 




* OATA 

lb GOOD * ChtCK 1 BYTE 

MORE 

TO SEE IF INPUT EXCEEDED RANGE 

002437 




* 






00243b 

OABl 

0096 



LOH 

SR5 * Sb6 * SR 1 




002439 

oabf 

6C55 



LOV 

SR6 9 =X ' 55 • 



WHAT SHOULD bt IN NEXT BYTE 

002440 

0A90 

6955 



CMR 

SR6,=SR5 




002441 

0A91 

0903 



bt 

>$*2+SAF 




002442 

0A92 

F 380 

125C 


LRJ 

$B7,<tKR0R 



INPUT tXCEEOtu RANGE 

002443 




* 






002444 




* READ 

bACK 

P COUNTER VALUE 




002443 




* 






002446 

0A94 

C380 

0E25 


LNJ 

Sb4 » <KPVLO 



READ P VALUE 

002447 




* 






00244b 

0A96 

0800 

14C0 


LOR 

SK3,<TPK 




002449 

0 A9b 

3B00 

0AA3 


btVN 

SR3 * <CHK2 



BRANCH IF KECtlVE CHAN 

002450 

0A9A 

E870 

0405 


LOR 

$R6 * = X * 405• 



SHOULD bt FOR TRANSMIT SIDE 

004451 

0A9C 

8280 

0960 


Lb 

<CCoSAV,=Z*iOQO» 




0A9L 

1000 








002452 

0a9F 

0586 



bbF 

>CHn3 




^ 002453 

OAAO 

L870 

04A2 


LOR 

Sk6 9 ~X * 04A2 * 




M 002454 

0AA2 

OF 8 3 



b 

>CHk 3 




A 004453 

0 aA3 

E870 

0205 

CHK2 

LOR 

SK6 9 = X * 205 * 



P VALUt FOR GgOO COMPLETION 

X 004h5o 

0aA3 

0956 


CHK3 

CMK 

SR5,=SK6 



COMPARE IS VS SB 

0024 57 

0 AA6 

0903 



b6 

>S+2+SAF 




00245b 

0 AA7 

F380 

125C 


LRJ 

SB 7 9 <LRROR 



INCORRECT OPEkATION OF CHAN PROGRAM 



title DO«H * REV • A * 


PAGE 26 


002459 
002460 
002461 
002462 
002463 
002*64 
00246b 
002466 
002467 
002466 
002469 
002470 
002471 
00247*: 
002473 
002474 
00247b 
00247c 
002477 
00247b 
002479 
002*80 
002481 
002482 
U0248 3 
002*84 
00248b 
00248b 
002487 

002*88 
002489 
002490 
002491 
002492 
002*93 
002*9* 
0 0 2 * 9 b 
002*96 
002497 
002498 
002499 
002 bOO 
002 bO1 
002b02 
002 bO 3 
002 b04 

0u2 bOb 
002 bOO 
002 b07 
002 bOb 
002 b09 
002 b 10 
002 b11 
002b12 


0mm 9 838b 


0 AAA 
0 AAb 
0 AAC 
OAAD 
GAAE 
OAAF 
OAbO 

OAbl 
0 Ad 2 
OAbJ 
0 Ab4 
OAdb 
0Ab6 
0AB7 


0138 

013F 

Ob37 

0027 

0426 

0125 

0000 

0138 
013T 
Ob 3 7 
0007 
0206 
0105 
0000 


0A66 
0 AbA 
OAbb 
OAbO 
OAbT 
OACi 
0AC2 
0AC3 

0AC4 
OACb 
OACo 
0 A C 7 
0AC9 
OaCA 
UACb 
OmOD 
oacf 

OAOO 

0AD2 

OAD* 

OAOb 


8 F 40 
7440 
9680 
0870 
CF 00 
A874 
b8 74 
8253 
9874 
A7DD 
6AD2 
3780 
0791 
1CF6 
9b80 
A8 70 
AF 7 1 
1 7b 0 
8FC0 
7440 
8384 


* 

* LOT 

* 

LOT 1A 
LOT 1 


* LOT 
L0T2A 
LOT 2 


JMP SB5 
TAbLE OF XM1T TEST 


00 

00 

oc 

00 

00 

00 

00 

TAbLE 

00 

00 

DO 

OC 

OC 

00 

00 


=x»ona» 

s X * 013 F » 
X«U53 7* 

5 X • 2 7 ' 

=X•U426• 

X * U 12b • 

0 

F RCV TEST 
=X•0138• 

= X»013F * 
X'0537* 

* X * 0 7 • 
sX»U206* 
X* UlOb * 

0 


bYTE 56 s 1 F 

55 = COUNTER FOR By 

BYTE 3V 
BYTE 38 
PAUSE OUABLE 
END OF TABLE 

56 - FLG. 1 = GNB 1 
CONTER FOR BYTES 

P VALUt START = 2 

PAUSE DISABLE 
END OF LOT 


= 0 
fES 


FOR tOR 


0 FOR tOR 


TILL SLND duFTEk WITH ASCENDING DATA * RECEIVE BUFp WITH DEFAULT 
ONLY 10 LOO OF RECEIVE ARE FILLED WITH DEFAULT (5555). 

LNJ $B4 * <FDAT A 
DO DATA STARTING DATA 
DC RNG RANGL IN BYTtS 
DO X 0 FUR LtFT BYTE START* 


OAbE 

F DI A 

SAVE 

SAV3 1 = X * 7440• 

1 tbb 


LAb 

SB1i<SDb 

bbbb 


LUK 

a>R4,-X»bbbb» 

1 Ebb 


SlK 

SR4«<SDB 



LDR 

SR2i+SB4 



LDR 

$R3i*$B4 



NEG 

= $R3 



LDR 

SRI i*$B4 


FDTALP 

STH 

SR2 1 SBl.+$k1 



INC 

= $K2 

OACb 


B1NC 

$R3 1 <FDT ALP 



STH 

SR4,SB1.$K1 



LDV 

SRU--10 

2bAA 


LAb 

SB1 1 <RTB 

bbbb 


LDR 

$R2,=Z f bbbb* 

OACF 

FDTA1 

STK 

SR2,*$B1 


BIIMC 

$K1 i<FDTAl 

0 A44 


RSTR 

SAVi 1 =X * 7440 * 


# ----- 

JMP 

SB4 


FOR HIGH I 

BliRlUi3,4 

ADDRESS UF StllD DAjA 
DEFAULT FOR FIRST AN 


1RST AND LAST 


STARTING DATA 
RANGE 


STORE BY 11 


DEFAULT AT ENb 

ADDRESS UF RECEIVE 
DEFAULf VALUE 
STORE IN BUFFtR 


DATA INPUT AND CKO TEST 


002513 

0AD6 

b870 

4E20 


CRCT 

LDR 

002514 

0AD6 

6 F 0 0 

1561 



STK 

002515 






CALL 


OADA 

FBOO 

0003 





0 ADC 

D380 

0000 

X 




OADE 

OF 60 






OADF 

16 1D 





002516 

OAbO 

0360 

10F0 



LNJ 

002517 





* 


002518 

0AE2 

6039 




LDV 

0025 19 

0 aE3 

t F 00 

1406 



STK 

002520 

0AE5 

Db60 

lEbb 



LAB 

002521 

0AE7 

DF60 

1405 



STB 

002522 

UAL 9 

A670 

0100 



LUK 

002523 

OAEB 

A FOG 

14D6 



STK 

002524 

OAED 

8763 



IMX0HC4 

OL 

002525 





# 


002526 

OAEE 

0380 

10E0 


NXOHC 

LNJ 

002527 

UAFo 

OF F D 




b 

Ool528 

OAF 1 

3 BO 3 




btVN 

002329 

•0AF2 

8AD3 




INC 

002530 

UaF 3 

uFFb 




B 

002531 

OAF 4 

9800 

1408 


NXCHC1 

LDK 

002532 

OAF 6 

88D1 




DtC 

00*U33 

OAF 7 

9 FOG 

1408 



SIR 

00253* 

GmF"9 

89D1 




CMZ 

002535 

OaFA 

0302 




BG 

002536 

0 AF b 

8382 




JMP 

00253/ 

OAFC 

8700 

14 E1 


NXCHC2 

CU 

002538 

oafl 

6751 




OL 

002539 

OAFF 

8 AD3 




INC 

002540 





* 


002541 





* 

PKLPARL 

002542 





* 


002543 

Oboo 

9360 

1069 



LNJ 

00254* 

0b02 

142 A 




DC 

002545 

0B03 

006 A 




DO 

002546 

0B04 

0200 




DC 

002547 

0B05 

0000 




DC 

002548 





# 


002549 





* 


002550 

Ot>0o 

8803 




DtO 

002551 

ObO 7 

EB80 

14 A4 



LAb 

002552 

0o09 

BB80 

iEBb 



LAb 

002553 

ObOb 

5005 




LDV 

002554 

ObOC 

E870 

C002 



LDK 

002555 

ObOE 

tFGG 

0B37 



STK 

002556 

OBIO 

6C08 




LDV 

002557 

ObU 

F 870 

0100 



LDK 

00255o 

Obl3 

9380 

0b3b 



LNJ 

002559 





* 


002560 





* 


002561 

Ob 1 5 

5001 




LDV 

00256*: 

Odio 

EB80 

14A6 



LAB 

002563 

Ob 1 b 

E870 

OOFF 



LDR 

002564 

OBI A 

efoo 

I4E1 



STR 

002565 

OBIO 

E670 

0602 



LDK 


$R3 1 = A•N • 

SR3i<EKMG+l 

2V$i.ZV$TC,TSTN 


&B4 * <GENI TZ 

$R6i=57 
$R 61 <CUUNT 
SB5 *<SDb 
Sbb 1 <ADDS 
SR2i=X»100* 
SK2 *<KANGE1 
= $R3 

SB4 * <F LN 

>NX0H04 

$K3i>NXCHCl 

= $R3 

>NXOHO 

$R 1 * <COUNT 

s$Rl 

iRl,<OOUNT 

= $RI 

>NX0HC2 

$B2 

<MAdK 

= $ki 

-$R3 


AND LOAD RAN INSTRUCTIONS 


MLCC GENERAL INITIALIZE 

SET LOUP COUNi 

ADDRESS UF STmRT Op BUFFER 


FIND LINt ON 

NO MORt, GO BmCK Tq FIRST 


GET LOUP COUNT 


END OF THIS TcST 


$B1i<SDATA 
<KOkTI 

(RUD1-RCRTl)*2 
X*2U0» 

U 


*Sk3 

$B6*<CRC16 
$B3 1 <SDb 
AK5i=b 

SR 61 = Z’C0U2 1 
$R6 1 <CPT 3A 
JR6 1 = 8 
$R/i~X»100* 
SB1 1 <TESC 


SRbi=l 
SB 61 <LRC 8 
SR6,=X»FF« 
$R 61 <MASK 
Skbi^CaOZ* 


RAM ADDRESS 
EVEN BYTE STAkT 


GET RECEIVE CnANNEt 

ADDRESS UF CRO'S GENERATED 
OHAKAOItK 

SET CQNF. IN lPT FOR CRC16 

NUMBER OF BITS IN CHARACTER 
NUMBER UF CkO’S IN TABLE 
GO DO IEST FOR CKO16 


CHANGE MASK 

SET CQNF. IN OPT FqR LRC8 
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00236a 
002 36 7 
002566 
0021569 
002670 
00-26 71 
002672 
002673 
00267* 
002676 
002 67o 
002677 
00267b 
002679 
002680 
002681 
002684 
002683 
00268* 
002686 
002686 
002687 
002688 
002689 
002690 
002691 
002694 
002693 
00269* 
002696 
00269b 
002697 
004698 
002699 
002bQu 
002601 
002602 
002603 
00260* 
002606 
002o06 
002607 
002808 
002609 
002610 
002611 
002612 
002613 
0026 1* 
002616 
002616 


Obit 
0b20 
Ob21 

0B23 
Ob26 
0626 
0628 
062 A 
0b2L 
Gb2t 

Ob4 h 

0631 

0b34 


0634 

0636 

0636 

0b37 

Ob38 

0b39 

Ob3A 


EF 00 0637 
6C08 

9380 063b 

OF 8 1 0000 
6C06 


8700 

EB80 


14E 1 
14A/ 


L870 *402 
tP00 0637 
6C06 

9380 0636 
3t 02 

OP 80 OAEt 


0206 

0226 

0003 

C002 

C022 

0004 

0000 


0636 C380 1113 


0b30 

063P 

Ob4i 

0643 

0a43 

0647 

0649 

Ob4A 

0646 

0640 

064P 

0b60 

0662 

0654 

Obt>6 

0658 

066A 

066C 

Ob5E 


066P 
0661 


A870 
06A8 
OP 80 
9870 
6696 
OP 00 
0003 
0386 
bBBO 
bP 80 
OFFO 
OP 60 
OP 80 
OFBO 
A870 
ObAb 
OP 80 
b380 
0B34 


0100 
14C5 
14C5 
PPOO 
0000 
0636 


1EBB 

14C5 

0660 
0691 
0664 
00 FO 
14C5 
0694 
OFCC 


P6C0 0003 
03b0 0000 


* 

CRZR 


* 

* LCT 


CPT3 


CP13A 


TLbC 


TESCA 


STK 

LOV 

LNJ 

6 

LOV 

CL 

LAb 

LOR 

STK 

LOV 

LNJ 

AOV 

6 


SK6,<CPT3A 

SK6,=8 

*B1*<TESC 

CH2K 

SK5*=5 

<MASK. 

$B6,<CRC12 
SR6 . =2 * 4*02 * 
SK6 * <CPT 3A 
$K6 * = 6 
Sb 1 * <TESC 

SK3,=2 

<NXcHC 


FOK AbOVt Ttbl 


TESCC 


* 

CP2 


OC 

DC 

OC 

OC 

OC 

OC 

OC 


LNJ 

LuK 

LAb 

STB 

LOK 

LAb 

NOP 

CM6 

bLE 

LAb 

STb 

6 

ST 6 
bTb 
bTb 
LOK 
LAb 
bib 
LNJ 
OC 

CALL 


2 * 0206 • 
2*0226* 
2*0003* 
2 * C002 * 
2* C022 * 
2*0004* 
0 


Sb4. <CKC 


SR2 * =X * 100• 

$B5**<ADDS,$R2 

Sb3 * < AOOb 

$K1 * *-X * 100• 

SB3.*<ZVSHK.$R1 

< 7 tbC 

$B5*=SB3 

> T tbCC 

bb3 *<b06 

3>B3 * <AOOb 

>1 tbCA 

SB5,<CP1 

SB 5 * <CQMP + * + 2 *SAF 

Sb5.<CP2*4*$AF 

SR2.=X*P0* 

Sb5,*<ADDS.$K2 

Sb5 *<CP3 

*B3*<SETLCT 

<CP1 3 

2V$P*S*DFLT .KANGE1 


GO 00 IEST FOK LRCq 
SKIP CKC12 
RESET MASK 

btT CONP• IN cPT FOR CRC12 

NUMBER OP BITS IN CHARAUER 
00 1E5I FOR CKC12 

INCREMENT TO NEXT INPUT CHANNEL 


P» Mbb * KCV 
P, XMil * Mbb 
PAUbE DISABLE, KCV 
CKC TYPE* KCV 
CRC* XM1I 

PAUbE OlbABLE, XMIj 
ENO OF LCT 


00 bIMULATEO v.RC 

FORM AOOKEbb FOR RECEIVE OAIA 


RESET AOORESb 

RESET MEM, POINTER, WE *Rt OVER 64K« 

AOORESb FOK LaST CCB 
SENO LCT OUT FOR THIS LINE 



0b63 

OP 80 






0664 

0B5F 






0665 

146E 






0b66 

1406 





002617 




* 



002618 




* IN 

THI a TEST 

4 CCB * S ARE 

002619 




* SET 

UP after data TRANSFER 

002620 




* 1S 

moved up 

WITH EACH NEW 

002621 




* MEMORY wILL 

HAVE DATA TRA' 

002624 




* 



002623 




* 

CC6 

CPU ADO RAN; 

002624 




* 



00262b 




* 

1 

6 80 

002626 




* 

2 

B* 80 40 

002627 




* 

3 

d+CO 20 

002628 




* 

4 

a*Eo 10 

002629 




# 

5 

B+FO 10 

00263U 




* 



002631 




* IN 

THE ABOVE B s eADDSe?, t 

002634 




* INCREASES dY lOO(HEX) APTi 

002633 




* 



002634 

0b6 7 

7CPC 



LOV 

$R 7 * =-4 

002635 

0668 

C870 

0100 


LOR 

SR4,=X*10Q* 

002636 

GB6A 

8751 


TES6 

CL 

= $R 1 

002637 

Ob6b 

C380 

1189 


LNJ 

SB4,<MCCB 

002638 

0660 

14C7 


CPI 

OC 

<DUMMY 

002639 

066E 

0040 



OC 

X» 0040 * 

002640 




* 



002641 

0B6F 

4041 



bUR 

SR* * 1 

002642 

Ob7o 

9854 



LOR 

SR1,=SR4 

002643 

Ob71 

6698 

0660 


LAB 

SB3,*<CPl.$Ri 

002644 

067 3 

BP 80 

0660 


STB 

SB3 , <CP1 

002643 

0673 

7780 

066 A 


bINC 

SR7,<1Ebb 

002646 




* 



002647 

Ob7 7 

7CFB 



LOV 

SR7 , = -5 

002646 

0678 

8756 



CL 

= SR6 

0026*9 




# 



002650 

0679 

b380 

0628 

• T ESP 

LNJ 

SB3 * <5TRT10 

002651 




* 



002652 




* 



002653 

Ob7u 

C380 

1161 

TESG 

LNJ 

SB4 * <INxT 

002654 

0670 

OP 88 



b 

> TESE 

002655 

0B7L 

C800 

1561 

TESH 

LOR 

$R4,<CQNT6 

002656 

0680 

C380 

1173 


LNJ 

SB* * <CGSCH 

00265/ 

0682 

8755 



CL 

= SR 3 

002658 

Ob83 

8055 



10 

=SR3,=$R4 


0b84 

0054 





002659 




* 



002660 




Ik 



002661 

0685 

8205 


TESE 

Lb 

=SR5*s2*1000* 


0686 

1000 





002664 

0687 

0506 



BBT 

>TESO 

002663 

0688 

OFOO 

0679 


NOP 

< T E S P 

002664 

068 A 

67 F 4 



BINC 

$R6 * > TESH 

002665 




* 



002666 

0686 

F 380 

125C 


LNJ 

SB 7,<ERROk 

002667 

0680 

70FB 


TESD 

CMV 

SR 7 » = -3 

002668 

068E 

0988 



BNE 

> T EbJ 

002669 

UB6F 

C870 

0020 


LOK 

SR4*=X*20» 

002670 

0691 

8751 



CL 

= $R 1 


I HE BaSE 


additional is 
of the lcb*s 


(WORDS) 


5 CCB* a# 


FORM CC6 FOR CHANNEL RUN 
CPU OAIA ADOKcSS 
SET FOR NO RUPT 

SHIFT UVER RANGE 


SET FOR NEXT CCP 


START 1/0 

INPUT NEXT STATUS 

INPUT STATUS 

SEE IP SIATUS COMPLETE 
TRY AGAIN 

CCB NO! COMPLETE ApjER CHANNEL PROG. EXECUTIO 


RANGE 

CLEAR INDEX 



TITLE. DCMC1 

* REV, 

A* 
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002671 

0692 

C380 

1189 



L NJ 

$B4, <MCCB 

MA<t CCB 

002672 

0694 

14C7 



CP3 

DC 

<DUMMY 

UllEU IN bY PROGKAM 

002673 

0B95 

0060 




DC 

X * 0060 • 

LAST BLOCK, VALID 

002674 

0b96 

7780 

0676 


TESJ 

bINC 

$R7 , <1ESG 

TLST FOR LAST 

002673 





# 




002676 





COMP 

CALL 

2V$C*SD6*$*MASK*RANGEl*ERAR 


0b98 

FBCO 

0003 







069A 

0380 

0000 

X 






Qb9C 

0F80 








0690 

IE6B 








0b9E 

0B98 








0B9F 

14fc 1 








06A0 

1406 








ObAi 

14E3 







002677 

06A2 

89C0 

0940 



CM2 

LRAK 


002676 

0BA4 

090F 




BL 

>NOLRC 

IF ERROR HALT WITH; 

002679 

ObA5 

OC80 

069t 



LD6 

$65,<C0MP+4+2*$AF 


002680 

06A7 

0800 

14E5 



LDK 

$R5, <ERAR + 2 

'IS' IN *Rb 

002681 

0BA9 

1800. 

14E4 



LDK 

$R6,<tKAK+l 

•SHOULD BE • In $R6 

002682 

OBAb 

F 800 

14E3 



LDK 

$R 7»<ERAR 

WITH THE LOCATION OF ERROR IN bLOCK 

002683 

OBAO 

F 380 

125C 



LNJ 

$67,<ERROK 

ERROR IN CRC GENERATION* $66 POINTS T 

002684 





* OF CKC+i. 

$65 POINTS TO START OF 

RECEIVE BUFFER 

002683 






CALL 

2V$C0 

CONTINUE COMPARISON 


06AF 

FBFO 

0001 







OBbi 

0380 

0000 

X 





002686 

0BB3 

C380 

1177 


NOEKC 

LNJ 

$b4,<CHCT 

CHANNEL CONTROL 

002687 

Obb3 

0F82 




b 

>$♦2 


002686 

Qdb6 

0000 




DC 

0 

CHANNEL INIT. 

002689 





* 




002690 

Obb 7 

F870 

0100 



LDK 

$R7,=X»100* 


002691 

0BB9 

6660 

1 EBb 



LAB 

$63,<5DB 


002692 

002693 

OBBb 

8381 




JMP 

$61 

JUMP TO 00 NEXT CKc TYPL 

J02694 





* 




002693 





* 




002696 





# 




002697 





# 

DATA OUTPUT TEST 


002698 





* 




002699 





* 




002701 

obdl 

6870 

5020 


0TP1 

LDR 

$R3 , = A * P ♦ 


00270*: 

obbt 

bFOO 

1581 



STK 

$R3,<EKMG+i 


002703 






CALL 

ZV$T.ZV$TC,TSTP 



ObCO 

FBCO 

0003 







ObC2 

0380 

0000 

X 






OdC<* 

OF 80 








0bC3 

162 A 







002 704 

0bC6 

8753 




CL 

= $R3 

INITIALIZE CHANNEL 

002703 

ObC7 

8751 




CL 

= $R1 


002 706 

ObCb 

C380 

10FC 



LNJ 

$b4,<GENIT2 

GLNLKAL INITIALIZE 

002707 





# 




002708 

OBCA 

C380 

10EC 


0TPT2 

LNJ 

$64,< F LN 

FIND LINE ON 

002709 

ObCC 

8382 




JMP 

$62 

NO SUbCH ON Nu TESj 

0U2710 

ObCO 

3B83 




60DD 

$R3,>0TPT 4 

GET WRITE SUbcH. ONLY 

002711 

QbCt 

8A03 




INC 

= $R3 


002712 

OBCF 

OFFb 




6 

>01PT 2 


002713 

ObDo 

8700 

14E1 


UTPT4 

CL 

<MASK 


002714 





# 




002713 





* LOAD AND PACK KAM INSTRUCTIONS 

002716 





* 




002717 

0bD2 

9380 

1069 



LNJ 

$61,<SDATA 


002 716 

0b04 

145F 




DC 

<ROD 1 


002 719 

ObD5 

003C 




DC 

( VAlTST-RU01) *2 

number of ram instructions 

002720 

0BD6 

0200 




DC 

X • 200 • 

RAM STARTING mDDREsS 

002721 

ObU 7 

0000 




DC 

0 

EVEN S1 ART ADuRESS 

002722 





* 




002 723 





* 




002724 





* 




002723 





* 

FOKM RANDOM DATA TABLE TO BE OUlPUT 

002726 





* 




002727 

Obbb 

bb80 

ltbb 



LAb 

$63,<bOB 

LOAD $63 WITH ADDRESS OF SDb 

002728 

ObDA 

EB80 

14A4 



LAB 

$66,<CRC16 

LOAD $66 WITH ADDRESS OF CRC16 

002729 

ObDC 

5C0A 




LDV 

$R5,10 

INITIAL CHARACTER 

002730 

QbUD 

6C0b 




LDV 

$R6,=11 

NUMBER OF BITo IN CHAR. 

002731 

ObOt 

F 870 

01F4 



LDK 

$R 7, = 500 

THE NUMbtR OF WORDS MADE IN TABLE 

002732 

ObLO 

C360 

1113 



LNJ 

$B4 , <CRC 


002 733 





* 




002734 

0bt2 

6380 

OFCC 


UTPT5 

LNJ 

$B3,<bLTLCI 

SEND LCT BYTES OUT 

002 733 

ObL4 

0634 




DC 

<CPT 3 


002736 





* 




002 737 

Obt5 

C870 

01F4 



LDK 

$R4, = 300 

RANtjE OF BY T Lb TO BE LOADED FOR CRC 

00273b 

ObL 7 

C380 

1189 



LNJ 

$B4,<MCCB 

FORM CCB FOR CHANNEL RUN 

002739 

Obt 9 

lbbb 




DC 

<SDb 

XMIT BUFFER AuDRESs 

002740 

ObtA 

0040 




DC 

X* 0040* 

NO KUPI 

002741 





* 




002742 

OBtb 

C870 

00C8 



LDK 

$R4, = 200 


002 743 

Obbu 

C380 

1189 



LNJ 

$B4,<MCCb 

MAKE CCB 

002744 

Obtf- 

1F 65 




DC 

<SDD+23U 


002743 

UbFo 

0040 




DC 

X * 40 * 


002746 





* 




002 747 

ObF 1 

L870 

0064 



LDK 

$R4,=100 


002748 

ObF 3 

C380 

1189 



LNJ 

$B4,<MCCb 

MAKE CCB 

002 749 

ObF 3 

2019 




DC 

<SDd+350 

CPU address 

002730 

Obf* 6 

0040 




DC 

X * 40' 

VALID BI1 ONLr 

002731 





* 




002 732 

ObF 7 

L8 70 

0064 



LDK 

$R4,=100 


002753 

0bF9 

C380 

1189 



LNJ 

$64, <MCC6 

MAKL CCB 

002754 

ObFb 

204b 




DC 

<5Ub+400 

CPU ADDKtSS 

002755 

ObFC 

0040 




DC 

X • 40 * 

VALID 

00275o 





# 




002 75 7 





* 




002 7 5b 

ObF 0 

6380 

0628 



LNJ 

$63,<bTRTiO 

START 1/0 

002 759 





# 




002760 





* WAIT 

FOR 

FIRST CCB TO GET RLADY 

AND THLN GIVE 3TH CCB 

002761 





* 




002 762 

ObFF 

C380 

UC8 



LNJ 

$64,< TEST 

WAIT FUR STATgS COMPLETE 

002763 

0C01 

OF 82 




B 

>$♦2 

RETURN 

002764 

0C02 

003C 




DC 

60 

1/2 StC IIMEOuT 

002 765 





* 




002766 

0C03 

8205 




LB 

=$K3,=2»1000* 

GET STAT COMPLETE BIT 


0C04 

1000 







002 767 

0CO3 

0500 

0C09 



BbT 

<OTPT 7 

IF TRUE GO SET UP CCB 

00276b 

UC07 

F 360 

i 2 5C 



LNJ 

$B 7 , <EKROR 

NO CCB COMPLETE ON TRANSMIT 


0 TYPE. 
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002769 
00277 u 
002771 
00277c 
002773 
002774 
002773 
002776 
002777 
002 778 
002779 
002780 
002 781 
002782 
002/83 
002784 
002783 
002786 
002787 
00278b 
002789 
002790 
002791 
002792 
002793 
002794 
002793 
002796 
002797 
002 798 
002799 
002800 
002601 
002602 
002o03 
002o04 
002603 
0 Q2oQ6 
002807 
002 bOb 
002 o09 
002 b 10 
002811 
0 o2o 12 
002613 
002814 
002 o13 
002816 
002617 
0 0 2 8 1 8 
002819 
00262O 
002 b21 
002822 
002823 
002624 
002623 

002b26 

002827 

002626 

002629 

002630 

002831 

002632 

002633 

002634 

002633 

002836 

002637 

002638 

002639 

002640 

002641 

002642 

002643 

002644 

002843 

002646 

002647 

002646 

002649 

002650 

002651 

002652 

002653 

00265*+ 

002653 

002c56 

002657 

002b5b 

002659 

00266U 

002661 

002662 

002663 

002664 

002865 

002666 

002667 

00266b 

002869 

002670 

002671 

002672 

002673 

00267*+ 

002675 

002b7b 

002677 

002b7b 

002679 

002680 

002681 


0C09 

C870 

0064 

0TPT7 

LOR 

$R4,=100 

OCOb 

C360 

1189 


LNU 

$B4,«MCCB 

OCOD 

207D 



DC 

<SDb+450 

OCOt 

0060 



DO 

X * 60 * 

OCOP 

C380 

1205 


LNU 

$B4,<DLAY 

OCll 

E853 



LDR 

$R6,s$K3 

OC 12 

6F2Q 



mlv 

SKb.sX'ZO* 

OC 1 3 

6E03 



ADV 

SR6,=3 

OC 14 

tF40 

0010 


STR 

$R6.0TPT3 


OCib 
0C17 
OC19 
OCiti 
0C1C 

out 

0C2O 
0C2 1 
0C23 
0C24 
0C2 5 
0C2 b 


0C27 

0C29 

0C2A 

0C2C 

0020 


5U-F 

B660 1Ebb 
tb80 14A4 
6008 

F 6 70 01F4 
0360 1113 

8803 

9380 1096 
1407 
0002 
0000 
0000 


0600 1407 
3016 

0900 1403 
0905 

E600 1403 


002P P360 1250 


0031 

0032 

0034 

0033 

0037 

0036 


3E03 

0380 10E0 
8382 

3680 06E2 
6A03 
OF P A 


range 

MAKE COB 

OPU A00Rt5S 

VAO10*EAST BtuCK 

TIME OtLAY 

OALOULATt LOT CKO RESlOUt ADDRESS 


ACCUMULATE ORO OP RANDOM TABLE FORMED EARLIER 


GTPT3 


PKPK1 

0TPT1 


LDV 

SR5.=-1 


LAB 

$B3.<SDB 


LAB 

SB6,<CRC16 


LDV 

SR6,6 

8 BIT CHARACTER 

LDR 

$R7,^500 

NUMdER in table 

LNU 

*B4,<CKC 


dec 

= 4R3 

GET READ CHANNEL 

LNJ 

SB1,<RDATA 

DO BLOCK READ 

DO 

<DUMMY 

TO HERE 

DO 

2 

RANGE =2 

DO 

0 

RAM ADDRESS GuS HERE 

DC 

0 

EVEN BYTE BOUnDNY 

LDR 

$R5,<DUMMY 


SOL 

$R5 ♦ 8 


OMR 

$R5,<CRCAC 

ARE CKC5 9 EoUaL 

Be 

>PRPR1 

YES DO NEXT CHANNEL 

LDR 

SR6 ♦ <CRCAC 

•IS* IN *R5 •IN : 

LNU 

$B7,<ERROR 

OUTPUT ERROR 

ADV 

*R3,=3 

INCREMENT TO NEXT CH, 

LNJ 

$B4,<PLN 


UMP 

$B2 


BUDD 

*R3,<OTPT5 


INC 

= $K3 


b 

> 0 T P T1 



* 

# 

* INTERRUPT DESCRIPTION 

* 

**** 

* bEPORE RUNNING UNOER INTERRUPT MGOt THE FOLLOWING 

* TABLES MUST BE SET UP. ALL TABLt OONTA1N 16 ENTITIES 

* OORRESPONOINg TU THt 16 OHANNELS IN SEQUENOE. AN ENTITY 

* IS EITHER A OATA UR AOORESS CONSTANT. 


# 

* 

* 

* 

* 

# 

* 

* 

* 

* 

* 

* 

* AFTER 

* THERE 


* 

* 

* THt 

* 


iNMb - SET UP TO CONTAIN THE NEG. NUMbER OF 
INTERRUPTS EXPEOTEO PER CHANNEL. 

IP IT IS SET TO A POS. NUMbER IT WiLL 
BE ASSUMEO THAT NO INTERRUPJS ARt EXPECTED 
ON THAT CHANNEL. 

ILV - SET UP TO CONTAIN THE LEVEL ASSIGNED 
TO EACH CHANNEL. 

1ST - SET UP TO CONTAIN THE STATUS EXPECTED 
ON EACH CHANNEL AFTER INTERRUPTS. 


PRIST 


INTERRUPT TEST HAS BEEN TERMINATED (NuRMALLY QR OTHERWISE) 
ONE OTHER TABLE CONTAINING USEFUL INFORMATION 


- CONTAINS ORDER IN WHICH FIRST 
INTERRUPTS OCCURtD. 


16 


PROGRAM rung AT 5 LOGICALLY DIST1NU LEVELS* 

LEVEE 0 - USED FOR SETUPS AND DATA CHECKING. 

IT IS EXITED 3Y SCHEDULING LEVEL 63 
BY MtANS OP A "LEV" INSTRUCI1UN 

LEVEL 3 - REAL TIME CLOCK TIMEOUT. MAJOR TESTS 
WITH INTERRUPTS TERMINATE BY A KTC 
TIMEOUT. THIS LEVEL EXITS bY SCHEDULING 
LtVEL 0. 

LEVEL 4 - CCb DISPATCHER AND INTERRUPT MONITOR. 

THIS ROUTlNt DOES STATUS CHECKING mND 
DISPATCHES a NEW CCb FOR A CHANNEL 
IP NEEDED. LEVEL 4 EXITS TO LEV 63 BY 
A "LEV" INSTRUCTION. 

LEVtLS 5-o2 - 16 QP THESE LEVELS {VAR 1AbLt) ARE OSLO 

FOR THt 16 CHANNELS. EACH LtVtL 
POINTS TO THt SAME KE-EN1RANT 
CHANNEL INTERRUPT HANDLER. 

LEVEL 63 - A "DO NOTH ING-wAIT" RUU1INE 
KtSIDES AT THIS LEVEL. 

TO OSt THE PROGRAM INTERRUPT SlKUCTUKE IHt FOLLOWING 
STEPS MUST BE TAKEN 

1. USE ROUTINE 1NTITZ. THIS INITIALIZES aLL 

tables. 

2. PILE TABLES WITH INFORMATION. 

s. setup interrupt vectors, unititz puts 

VECTORS FOR ERROR HANDLER IN LEVEES 5-62. IT 

SETS UP VECTORS FOR LEV 0.3.4, AND 5 TO TWER 

CORRECT VALUE.) 






Tl'lLE DCMC1 

•REV. 

A • 
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002882 





* 4 . 

USE ROUTINE "RTC" TO SET UP RTC 10 

Q0<:683 





* 

OtSlKLO T1ML0JT VALUE ANO TO START RTC. 

002684 





* 



0 02a85 





* 5. 

TuRN ON OtSIKEO CHANNELS. 

002686 





* 



002687 





* 6 • 

SCHLOUlL ANO DISPATCH LEVEL 63. 

002688 





* 



002689 





* WHEN THt 

RTC TIMEOUT IS COMPLETE 

THt PROGRAM 

002690 





* WILL RtSUML AT THt INSTRUCTION FOLLOWING 1Ht m l,EV m 

002691 





* WHICH DISPATCHED LtVtL 63, 


002692 





* 



002693 





* 



002894 





* ***************** 


002693 





* 



002896 





* FIRST INTLRRuPT 1tST 


002697 





* 



002896 

GC39 

b870 

5220 


I NS 11 LOR 

$K3i=A»R * 


002699 

GC3d 

bFOQ 

1581 


STR 

SR3 i<EKMG+1 


002900 





CALL 

ZVS>T*2V$TCiTSTR 



0C3D 

FbOO 

0003 






0C3F 

D380 

0000 

X 





0C41 

0F80 







0C42 

1633 






002901 

0C43 

8753 



CL 

= $R3 


002902 

0C44 

8070 

0080 


LLV 

= 2 * 0080♦ 

SWITCH TU LEVcL 0 

002903 

0C46 

0360 

10 FO 


1NL00P LNJ 

SB4 * <GENIT2 

GENERAL INITIALI2E TO MLCC 

002904 

0C46 

0380 

10 L0 


LNJ 

*B4*<F LN 

FIND ACTIVE ElNE 

002908 

0C4 A 

8382 



JMP 

SB2 

NO MORE LEFT 

002906 

0C4b 

9380 

0F18 


LNJ 

Sbl»<1NTIT2 

INITIALIZE INTERRUPTS 

002907 

0C4D 

0380 

0 bl6 


LNJ 

$B4,<CH1NT2 

INITIALIZE CHANNEL 

002906 

0C4P 

0380 

1205 


LNJ 

SB4,<DLAY 

DELAY 25MS 

002909 





* 



002910 

0C51 

b380 

OFOO 


LNJ 

$B3»<St TLCT 

OUTPUT LCT 

002911 

0C5 3 

0015 



UC 

<IN f LCT 

FROM HtRE 

00291 (t 





# 



002913 





* StT UP EXPtCTED STATUS TAaLt 


002914 

0034 

9870 

5020 


LOR 

$Rii = Z* 5020* 

STATUS CUMPLEjE 

002913 

0036 

9F30 

2690 


STR 

$R1.<I ST.$R3 


002916 





* 



002917 

0036 

1006 



LOV 

ski i=6 

PUT IN LtVtL uF 6 FOR CHANNEL 

002916 

0039 

9F30 

26 AO 


STR 

Skii<ILV.$R3 


002919 





* SLNO OUT 

CHANNLL PROGRAM 


002920 

003b 

bFOQ 

14CD 


STR 

SR3i<1PK 


002921 

0050 

8953 



LbT 

=$R3i=X»I • 



0050 

0001 






002922 

005F 

9380 

1069 


LNj 

Sbi*<SOATA 

SEND PROGRAM 

002923 

0061 

OCDC 



OC 

<GNdPRG 


002924 

0062 

0024 



oc 

36 

20 BYTE 

002923 

0063 

0200 



OC 

=X»200* 

RAM ADDRESS 

002926 

0064 

0000 



oc 

0 

STARTS ON EVEn BYTE IN CPU 

002927 

0065 

bbOO 

14CD 


LOR 

SR3i<TPR 


002926 





* SLNO OUT 

CCb. IN THIS FIRST TEST 

THE "1" BIT (oIT 0) IS 

002929 





* StT TO A 

w 0". NO INTERRUPT SHOULD OCCUR FUR THiS FIRST TEST 

002930 

006 7 

0870 

0004 


LOR 

SR4 i = 4 

ANY RANGE 

002931 

0069 

8751 



CL 

= $R 1 


002932 





* 



002933 

006A 

0380 

1189 


LNJ 

Sb4,<MCCb 

SEND CCB 

002934 

0060 

2bAA 



OC 

<RT D 

ANY ADDRESS 

002933 

0060 

0060 



OC 

= X•0060» 

LAST BLOCK bl1 ONLY 

002936 





* 



002937 





* SLNO UUT 

INTERRUPT LEVEL 6 ♦ RETURN CHANNEL NUMBER TO LCT 

002936 





* 



002939 

0060 

0380 

OOF 6 


LNJ 

$B4i<LtVRCH 

OUTPUT LtVtL ♦ RETURN CHANNtt 

002940 





* 



002941 





* StT UP INTERRUPT VECTOR IN CP 


002942 





* 



002943 

0070 

0380 

100 b 


LNJ 

$B4i<SETVEC 

SETS UP VECTOk FOR LEVEL 

002944 





* 


SET OP IN TABLt, ILV 

002943 

0072 

0800 

1550 


LOR 

SR4i<CUNT 2 

GET 1NPUI RANcE FC 

002946 

0074 

0380 

1173 


LNJ 

3>B4i<CGSCH 

POT IN ADDKESu 

0U2947 

0076 

OF 00 

0 C86 


STR 

$N4i<RNFC 


002946 





* 



002949 





* TURN ON CHANNLL 


002930 





* 



002951 

0078 

9B80 

0087 


LAo 

Sbii<LV63T A 

GET ADDRESS Tu CONTINUE 

002952 

007A 

9F80 

ObbC 


STb 

$Bi,<L63SV2 

PUT IN LEVEL o3 SAVE AREA 

002953 

0070 

0380 

124C 


LNJ 

$B4,<R T C 

SETUP KTC TO INTERRUPT 

002954 

007b 

000 A 



OC 

X * 000A * 

************* X * OOOA•FT tR SO MSEC 

002955 

007 F 

8F00 

Obbh 


SAVL 

<L63SV3i = X* 7684* 



0081 

7884 






002956 

0082 

8070 

603 F 


LLV 

=2*803F* 

SUSPEND CURRENT ANp GO TO 63 

002957 

0064 

0F8Q 

0C92 


b 

<BKhR 


002956 

0086 

0000 



RNFC OC 

0 

RANGE CONTROL WORD 

002959 





* 



002960 

0087 

b380 

10 B0 


LV63TA LNJ 

Sb3i<TKN0N 

TURN UN CHANNEL 

002961 

0089 

4000 



OC 

=X»4000* 

CHANNEL CONTkuL WORD - SI ART 10 

002962 

008 A 

0000 



OC 

0 

works por xmit ♦ receive 

002963 

008 b 

8 b 70 

OOBF 


IOLP LLV 

= Z » U 0 b F • 

dumm Ltv to generate rint 

002964 

008 D 

8055 



IQ 

=$R5i<RNFC 

INPUT RANGE 


0081 

0000 

0 C86 





002965 

0090 

OFbO 

GC8b 


b 

<IOlP 


002966 





* 



002967 





* PROGRAM RETURNS TO LEVEL 0 HERE 

IF NO ERRORS 

002968 

0092 

0005 



bKHK RTCF 


TURN OFF REAL TIME CLOCK 

002969 





* 



002970 





* CHECK STATUS IS COMPLETE 


002971 





* 



002972 

0093 

0360 

1161 


LNJ 

$B4,<iNXT 

INPUT NEXT STATUS TO R5 

002973 

0095 

62D3 



Lb 

=$R5i=2»1000* 



0096 

1000 






002974 

0097 

0503 



bbT 

>$*2*3>AF 


002973 

0098 

F380 

125C 


LNJ 

$B7,<ERROR 

STATUS NOT COMPLETE AFTER 

002976 





* 


"GNB" ISSUED 

002977 





* 



002976 





* SET UP FOR NEXT TEST. SET UP CCB 

WITH I bil = 1 (PERMITTING 

002979 





* INTERRUPTS) 


002980 





* 



002981 

009 A 

6700 

14CC 


CL 

<FLAG 

FLAG CLEARLD FOR FIRST TIME THROUGH 

002982 

0090 

9360 

OF 18 


INST2 LNJ 

$bli<IN TITZ 

INITIALIZE PkuGRAM FOR INTEKKUPIS 

002983 

0090 

9870 

9020 


LOR 

Ski1 = 2 * 9020 * 


002984 

00A0 

6980 

14CC 


CM2 

<FLAG 


002983 
n n j u w k 

00A2 

0963 



bNt 

* 

>INST4 

BRANCH IF SECOND TIME THRU 
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002987 

0CA3 

9870 

5020 



LOR 

SRI,=2*5020* 

STATUS CUMPLEIE 

002988 

0CA5 

OF 8 1 

0003 


INST 4 

b 

NEXT 4 

*****************TEMP, CHANGt 

002989 

OCA 7 

9670 

0020 



XUR 

$R1,=2'0020* 


^ 002990 

0CA9 

9F30 

2690 


NEXT4 

STK 

SKI,<1ST.$K3 

SET EXPECTtO bTATUs 

0U2991 





* 




fl 002992 

OcAb 

1C06 




LOV 

SRI ,=6 

CHANNEL TO HA*/E LEVEL 6 

% 002993 

0CAC 

9F30 

26A0 



STK 

SRI,<1LV.$K3 


002994 





* 




002993 

OCAt 

1CFF 




LOV 

SRI,=-l 


002990 

0CAF 

9F30 

2680 



STR 

SRI,<1NMb•SK3 

SET TU EXPECT ONE INTERRUPT 

002997 

OCb 1 

C380 

100b 



LNJ 

Sb4,<SETVEC 

set up rupt vector in cp 

002998 





* 




002999 





* SEND 

OUT 

CCb WITH 1 BIT SET 


003000 





* THIS 

CCb 

NOT UStO SECOND TIME 

THRU LUOP 

003001 





* 




003002 

OCbi 

4C04 




LOV 

SR4, = 4 

ANY RANfct 

003003 

ocb4 

8751 




CL 

= $R 1 

CLEAR BYTE INuEX 

003004 

0CB5 

C380 

1189 



LNJ 

Sb4,<MCCb 

MAKE CCB 

0U3005 

ocb i 

2bAA 




OC 

<RTo 

ANY ADDRESS 

U0 3u0t> 

OCbb 

ooto 




OC 

=2 * 00EO * 

INTERKUPI,<LAjT block 

003007 

0CB9 

9B80 

0C87 



LAb 

Sbl,<LV63T A 

GET ADDRESS Tu CONTINUE 

003008 

ocbb 

9F80 

ottc 



S 1 b 

ibl,<L63SV2 

PUT IN LEVEL o3 SAVE ARtA 

003009 

OCbU 

C380 

124C 



LNJ 

sb4 ,<k rc 

StT UP RIC TO INTERRUPT 

003010 

OCbF 

0006 




OC 

6 

AFTER 50 MSEC 

003011 

occo 

8F00 

OEtt 



SAVE 

<L63SV3, = X» 7884* 



0CC2 

7884 







003U12 

0CC3 

o t70 

b03F 



LEV 

= 2»603F * 

SUSPEND CURREimT ANp GO TO 63 

003013 





* 




003014 





* RETURN HERt AFTER INTERRUPTS HAVE OCCURtO 

003013 





* 




003016 

UCC5 

0005 




RTCF 


TURN UFF REAL TIME CLOCK 

003017 





* 



"GNB" ISSUED 

003018 





* CHECK THAT INTERRUPT DID OCCUR 


003019 





* 




003O20 

OCCo 

9380 

0FB9 



LNJ 

Sbl,<CHLV 

CHECK 1 INTERRUPT OCCUREO 

003021 

UCC8 

9800 

14CC 



LOR 

3>K1 ,<FLAG 


003022 

OCCA 

198F 




BNE2 

SKi,>lNST3 

BRANCH IF SECuNO TIME THRU 

003023 

UCCb 

8 ABO 

14CC 



INC 

<FLAG 

SET FIKSI TIMe THRU FLAG 

003024 

OCCO 

4C01 




LOV 

SK4,=1 

ANY RANGE 

003025 

occt 

C380 

1189 



LNJ 

Sb4,<MCCB 

MAKt CCB 

003028 

OCDO 

2BAA 




DC 

<RI D 

ANY AOORtSS 

003027 

OCDi 

0060 




OC 

X ' 6 J * 

LAST BLOCK, VmLIO 

00302b 





* 




003029 

OCD*: 

0380 

OFCC 



LNJ 

SB3,<StTLC T 

SEND OUT LCT bYTES 

003030 

0CU4 

0C07 




OC 

<SF LG 

FROM HERt 

003031 

0C05 

OF80 

UC9C 



b 

<INST 2 


00303^ 





* 




003033 

0C07 

0317 



SFLG 

DC 

X • 03 1 7 • 

StIS LCI X*1 /• NUn zero 

003034 

0CP8 

0000 




OC 

0 

END OF LIST 

003035 





* 



ON THIS CHANNEL, 

00303o 

0CD9 

8A03 



1NST3 

INC 

= SK3 


003037 

OCDA 

OF 80 

0C46 



b 

<1NLUQP 


003038 





* 




003039 





* CHANNEL PRuGKAM FOR AbUVt TEST 


003040 





* 




003041 

OCQC 

b031 



GNBPRG 

OC 

= 2 * B03 1 * 


£' 003042 

OCDO 

20BD 




OC 

=2*20BD* 


1 003043 

OCDt 

3100 




OC 

= 2 * 3 100 » 


1 003044 

OCDF 

C605 




OC 

= 2 ' C605 * 


^ . 003043 

octo 

0101 




OC 

=2*0101* 


003048 

0CL1 

5 AO 1 




OC 

=2 ' 5AO 1 * 


00304/ 

0CL2 

5026 




bC 

=2*5026* 


003048 

OCt 3 

FBBO 




OC 

= 2 » F bbO ' 


003049 

0Ct4 

3120 




DC 

=2*3120* 


0O3O50 

0C£5 

BD3 1 




OC 

=Z*oD31» 


003051 

0Ct6 

OOBO 




OC 

=Z»UObO* 


003052 

0C£7 

3180 




OC 

=2*3180* 


003053 

CCtb 

OlbO 




OC 

= 2*01bO * 


003054 

0CE9 

3120 




OC 

=2 * 3120 * 


003055 

OCEA 

0031 




DC 

=2 ' b031 » 


003056 

OChb 

0001 




OC 

=2 ' 0001 • 


003057 

OCtC 

0031 




OC 

=2 'dD3 1 » 


003058 

OCtO 

0001 




OC 

= 2*0001 * 


003059 

occt 

0000 




OC 

0 


003060 
0 0 3 U 6 1 





* 




O O 3 v o X 

003062 





****** 

* * 


003063 





* DATA 

SET 

SCAN TtST 


003064 





* 




o n 3 (j a s 









V V J U U J 

003068 

OCEF 

B870 

5320 


OSST 

LOR 

SR3, = A * S • 


003067 

OCFl 

OF 00 

1581 



STR 

SR3,<ERMG+1 


003068 






CALL 

2VST•ZVSTCfTSTS 



OCF 3 

FBCO 

0003 







OCF 5 

0380 

0000 

X 






0CF7 

0F80 








OCFb 

163t 







003069 

0CF9 

8753 




CL 

= $K3 


003U70 

OCFA 

C380 

lOfcC 


DSSTLP 

LNJ 

Sb4,<FLN 

FIND ACTIVE LINE 

003071 

OCF C 

8382 




JMP 

Sb2 

END UF 1tST 

003072 

OCFD 

C380 

1QFC 



LNJ 

$B4,<GtNIT 2 

IN1TIALI2E 

003073 

OCF F 

C380 

1205 



LNJ 

SB4,<OLAV 

DELAY 25 MS 

003074 





* LOAD 

CHANNEL PRUGKAM FOR DATA 

StT SCAN 

003075 

0001 

BF 00 

14C0 



STR 

SR3,<TPR 


003076 

0003 

8953 




Lb 1 

= $K3, =X • 1 * 

MAKE SURE WE hAVE A XMlT CHANNEL 


0004 

0001 







003077 

0005 

9380 

1069 



LNJ 

SB 1,<SOAT A 

SEND PROGRAM 

003078 

0007 

OOF 1 




OC 

<SCNPRG 

POINTER 10 SCrN PROGRAM 

003079 

0008 

OOOA 




OC 

= 2 » OOOA * 

RANGE 

003080 

0009 

0200 




OC 

= X * 200 * 

RAM AOORtSS 

003081 

OOOA 

0000 




OC 

0 

START UN EVEN BYTE 

003082 





* 




003083 

OOOB 

B800 

14C0 



LOR 

SK3 ,< T PR 

GET BACK TEST CHANNEL 

003084 





* 




003085 





* OUTPUT LCT OATA 


003086 





* 




003087 





* OATA 

SCAN 

MASK = ALL 2ER0 * S (0) 

003088 





* MAKE 

CLA 

STATUS = ALL ONES (F) 


£T'* 003089 





* 




■ 003090 

0000 

b360 

OFCC 



LNJ 

SB3,<SETLCT 

StT LCI 

m 003091 

OOOF 

0011 




OC 

<SCTEST 


003092 

0010 

OF 90 




b 

>SC T ST 1 


003093 





* 
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003094 

ODU 

GOOF 


0G3U95 

0D12 

002F 


003096 

ODU 

FFOE 


003097 

ODU 

FF2E 


003098 

ODU 

0206 


003099 

ODU 

0007 


003100 

ODU 

0226 


003101 

0D18 

0027 


003102 

0D19 

0010 


003103 

ODl A 

0011 


003104 

0D1B 

0030 


003105 

0D1C 

0031 


003106 

0D1D 

0008 


003107 

ODl t 

0028 


003108 

003109 

ODl F 

0000 


00311U 

0D20 

9870 

C008 

003111 

0D22 

3B02 


003112 

0D23 

1 E20 


003113 

0D24 

C380 

OBOC 

003114 

0D2o 

C380 

1215 

003113 

0U28 

C380 

084E 

003116 

0D2A 

82D5 



0D2U 

0010 


003117 

0D2C 

0583 


003118 

003119 

0D2D 

F 380 

125C 

003120 

003121 

003122 

002 F 

9870 

OOOt 

003123 

0D31 

3B02 


003124 

0D32 

1 E20 


003123 

0D33 

9F57 


003126 

0D34 

C380 

0 tC6 

003127 

0D36 

D570 

FFOO 

003128 

0D38 

D657 


003129 

0D39 

DFOO 

14CF 

003130 

0D3b 

8655 


003131 

0D3C 

D570 

FFOO 

00313c 

0D3E 

D657 


003133 

003134 

003133 

0D3F 

DFOO 

14D0 

003136 

0D41 

C380 

otoc 

003137 

003138 

003139 

0D43 

C3C0 

04C1 

003140 

003141 

0D43 

C380 

084E 

003142 

0D47 

82D5 



0D48 

0010 


003143 

0D49 

0583 


003144 

003143 

0D4A 

F380 

125C 

003146 

003147 




003148 

003149 

0D4C 

9870 

0400 

003130 

0D4E 

9F GO 

14E1 

003151 

003152 

003153 

003154 

0D50 

B3C0 

027B 

003153 

0D52 

OD 11 


003136 

0D5 3 
0D35 

9800 

14E1 

003157 

1001 


003156 

0D56 

0600 

0D96 

003159 

0D56 

9F00 

14E1 

003160 

0D5A 

9670 

OOOF 

003161 

0D5C 

3B02 


003162 

0D5U 

1E20 


003163 

003164 

003165 

003166 

0D5E 

C380 

otoc 

003167 

003168 

0060 

C380 

1203 

003169 

003170 

0D62 

9800 

14CF 

003171 

0064 

9600 

14E1 

003172 

003173 

0 D66 

C380 

OEOC 

003174 

0D6b 

C360 

ODF 6 

003175 

0D6A 

9380 

OF 18 

003176 

0D6C 

1C06 


003177 

0 U60 

9F30 

26 AO 

003178 

003179 




003180 

003181 

0D6F 

9B80 

0D7C 

00318c 

0D7 1 

9F80 

OEEC 

003183 

0073 

C380 

124C 

003184 

0075 

0006 


003185 

OD 76 

8F00 

OEEt 


0D7d 

7884 


003186 

00 7 9 

8E70 

80 3 F 

003187 

00318b 

003189 

003190 

0D7B 

OF 86 


003191 

003192 

003193 

0D7C 

B380 

OFCC 

003194 

0D7E 

0E09 


003193 

007 F 

0F02 


003196 

003197 

003198 

0D80 

OFF F 


003199 

003200 

0D81 

0005 


003201 

GD62 

C380 

084E 

003202 

0D84 

82D5 



0D85 

0010 



SCTEST DC 
DC 
DC 
DC 

INTLC7 DC 
DC 
DC 
DC 
DC 
DC 

B c c 

DC 

DC 

DC 

* START SCAN 
SCTST1 LDR 
btVN 
ADV 
LNJ 
LNJ 
LNJ 
Lti 


=2 * OOOF• 

= 2’U02F * 
=Z*FFOE* 

=2•FF21 • 
=2*0206* 
=2*0007* 
=2*0226* 
=2*0027* 
= 2 * 0010 * 
= 2 * 0011 * 
=2*0030* 
=2*0031* 
=2*0008* 
=2*0028* 

0 

AND CHECK THAT 
SKI, = 2 * C008• 
$R3 *>$ + 2 
SR1,=X*20* 
$B4,<QUTLCT 
SB4,<DLAYLG 
$B4,<1LCTST 
= $R3,=X * 10• 

>S*2 + SAF 
SB7 * <ERROR 


RECElVt MASK 
XMIT MASK 

RECEIVE CLA STATUS SET TO FF 

XMIT CLA STATUS SEj TO FF 

RCV P COUNTER,<MSb 

RCV P COUNTER *<LSB 

XMIT P COUNTER,<MSb 

XMIT P COUNTER,<LSB 

RCV STAT (LCT) 

XMIT SIAIUS (uCT) 

RCV SCAN CONTROL 
XMIT SCAN CONTROL 

MASK OF 0 INHIBITS IjS OPERATION 

DATA SCAN = 1, SET LCT STAT = 1 

MODIFY FUR TRANSMIT 

SEND OUT CHANNEL COMMAND BY IE 

DELAY 2S0MS 

INPUT LCT STATUS To R5 

GET DA 1A SET CHANGE BIT 


DATA SET SCAN BIT SET WITH 
MASK OF 0 


* READ CLA STATUS 

LDR $R1, 

BEVN SR3, 

ADV $R1 , 

STR SRI, 

LNJ $B4, 

AND Sk5, 

XOR SR5, 

STR SR5, 

CPL = $R5 

AND $R5, 

XOR $R5 , 

* OUTPUT COMPLEMEN 

* PROGRESSING, 

STR SRS, 

LNJ SB4, 

LNJ SB4,i 

* 

* INPUT LCT STATUS 


by input data set status 
= X' E * 

>$♦2 BRANCH IF RECtIVE CHAN 

= X * 20 * FORM CLA ADDRESS 

= SR7 

<dssta read DATA SET STATUS 

= 2 * FFOO• STRIP UFF UNUSED BYTE 

=$R7 FORM SIAIUS WiTH ADDRESS 

<TEMP 1 

FORM COMPLEMENT OF STATUS 
= 2•FF00• STRIP ADUKESS 

= $R7 OR IN ADURESS 

T OF NOMINAL CLA STAIUS. DATA bCAN IS STILL 


<TEMPST 
<001LCT 
OLAY 


FIRST STORE AaAY DATA 

OUTPUT BYTE To LCT 

WAIT FOR FIRMWARE JO FINISH 


AND CHECK DATA SET CHANGE IS KESET 


,<ILCTST 
>,=X*10* 


>$«-2*3>AF 
SB/,<ERROR 


INPUT Lcf STATUS To R5 
GET DA IA SET CHANGE BIT 


DATA SET SCAN BIT SET WITH 
MASK OF 0 


* START OF LOUP WHICH WILL TLST THE DATA SET MASK 

* 

LDR SR 1, = X * 400• 

STR SR I * <MASK 


DSLOOP LNJ 
DC 
LDR 
SOL 
BCT 
STR 
XOR 
BEVN 
ADV 
LNJ 


SB3,StTLCT 
<SC T EST 
SRI ,<MASK 
SR 1,1 
<SC1T1A 
SRI,<MASK 
SRI,=X»F* 
$R3,>S+2 
SRl, = X • 20 * 
Sb4,<0UTLCT 


SEND OUT LCT 


EXIT IF NO MOkE BITS TO TESI 
STORE MASK 

OR IN ADURESS FOR RCV MASK 


ADV SR 1, = X•20 * MODIFY IF XMIT 

LNJ Sb4,<0UTLCT OUTPUT MASK (Kl) To LCT 

* OUTPUT BYTE TO CLA PUSISTiON IN LCT. THIS BYTt WILL JEST 

* ONE BIT PQSISTION CORRESPONDING TO THE MASK WHICH HAS ONt BII SET. 

* EACH biT PQSISTION IN THE STATUS MASK IS CHECKED ONCE 


SB4,<DLAY 
SRI,<TEMP1 


SRI ,<MASK 
SB4,<OUT LCT 


DELAY 25 MSEC 

GET CLA NORMAL STAj + ADDRLSS 
WITH LCI ADDRLSS 
COMPLEMENT BIT TO TEST 
OUTPUT TO CLA STATUS 

SET LCI BYTES FOR LEVEL = 6 ♦ RETURN CHAN 
1 N11 IALUE INTERRUPTS 


* set OP For error interrupt 

LNJ SB4,<LEVRCH SET LCI BYTES FOR LEVEL = 6 4 

LNJ $bl«<lNT'lTZ 1NI1IALI2E INTERRUPTS 

LDV SRI, = 6 

STR sRl,<ILV.SR3 SET FOR LEVEL 6 IN LEVEL TABLE 

* Switch to level 63 

* DATA St I SCAN WILL TURN ON WI TH CONTROL = "DO" 

LAB SBl,<LV63Tb 

STB SbI,<L635V2 SET PVtClOk In LEVEL 63 SAVE 

LNJ SB4,<RIC SET RTC TO INTERRUPT 

DC 6 AFTER SO MSEC 

SAVE <L63SV3,=X*78b4* PASS ALONG REGISTERS 


=2*803F* 
>D0l2 


SUSPEND CURRENT ANd CO TO 63 
RETURN HERE AFTER R7 C RUPT 


* LEVEL 63 CODE. OUTPUT A DATA SET SCAN CON IROL wORD 

* WITH BIT 0 = 1 (SCAN), BIT 1 =1 (SET STATUS), dIT 2 * 0 

* (INTERRUPT),<BIT 3 = 1 (START CHANNEL PROGRAM) 

* 

LV63T6 LNJ SB3,<SETLCT OUTPUT DATA SCAN BYTE 

DC <SCTSVA 

N0ER2Q NUP >DQl2 WAIT FUR RTC INTERRUPT 

B >N0ER20 


* RETURN HERE VIA RTC INTERRUPT« 

* 

D0L2 RTCF 

LNJ $B4,<ILCTST 

LB =$R3,=X*10* 


THEN INPUT LCT STATUS 

TURN OFF REAL TIME CLOCK 
INPUT LCI STATUS To R5 
GET DAI A SET CHANGE BIT 
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003203 

0D86 

0503 



BBT 

>S+4*SAF 

003404 

0D8 7 

F360 

125C 


LNJ 

SB f ,<EKROK 

003408 




* 



003206 




* RESET LEVEL TU 4 EKO SU BLOCK l 

003207 




* 



QG3*0b 

0D89 

1 COD 



LDV 

SRI,=X'D' 

003409 

0D6 A 

C360 

OLOC 


LNJ 

SB4* <OUTLCT 

003210 




* 



003211 

ODbC 

C360 

0E25 


LNJ 

Sb4,<RPVLU 

U03214 

0D6E 

E670 

0204 


LUK 

SR6, = X * 204• 

003413 

UD90 

D956 



CMR 

SR5,=SK6 

0U3214 

0D91 

0903 



BE 

>S+2+SAF 

003218 

0D92 

F 380 

125-C 


LNJ 

Sb7,<ERRQK 

003216 




* 



003*17 

0D94 

U F 60 

0D50 


b 

<DSLUOP 

003216 




* 



003219 




* TEST 

THAT 

DATA Stl SCAN WILL 

003220 




* 



0U3221 

0D96 

C360 

0E18 

SC1T1A 

LNJ 

SB4,<CHINTZ 

003222 

0U96 

C380 

1205 


LNJ 

SB4,<DLAY 

003223 




* 



00342* 

0D9a 

B3C0 

0231 


LNu 

SB3,SETLC T 

003428 

0D9C 

ODli 



DC 

<SC1 ESI 

003426 




* 



00342 l 




* UUTPUT LCT 

DATA 

003226 




* 



003229 




* 

MASK 

= ALL UNtS (F) 

003430 




* 



003431 

0D9D 

B360 

OFCC 


LNJ 

SB3,<SETLCT 

003232 

0U9F 

0DA1 



DC 

<SC i T 1 

003433 

ODAO 

0 F 84 



b 

>SCIT 2 

00343* 




* 

~ 


003238 

ODA1 

FFOF 


SC1T1 

DC 

=Z»FFOF» 

003236 

0DA4 

FF2F 



DC 

=Z * FF2F * 

003237 

0DA3 

0000 



DC 

U 

0O3236 

0DA4 

C380 

0DF6 

SCIT2 

LNJ 

SB4 $<LEVRCH 

003239 

0UA6 

9360 

OF 18 


LNJ 

SB1,<I NTIT2 

003240 

0DA6 

1C06 



LDV 

SRI , = 6 

003241 

0DA9 

9 F 30 

26A0 


STK 

SR 1 * <ILV•SR3 

003244 

ODAb 

C380 

1 ODB 


LNJ 

SB4,<SET VEC 

003243 

ODAU 

1C FF 



LDV 

SRI ,=-l 

003244 

ODAt 

9F30 

2680 


SIR 

SR 1 * <INMb.SR3 

003245 

ODbO 

1 COF 



LDV 

SRI »=X»F' 

00324b 

0UB1 

9F00 

14D1 


STR 

SR 1,<SCFLG 

003447 




* 



003446 




* SLND 

UUT COMPLEMENT OF NORMAL 

003249 




* 



0U3250 

OBBi 

9600 

14D0 


LDR 

SR1,<TEMPST 

0U34 51 

0UB5 

C380 

OEOC 


LNJ 

SB4,<DUTLCT 

003452 




* 



003253 




* SWITCH TO 

LtVtL 63 

003254 




* 



003455 

ODb f 

9B80 

0DC4 


LAb 

Sbl,<SCiT 3 

003456 

0DB9 

9F60 

OLEC 


ST B 

SB1,<C63SV2 

003457 

OUBB 

C380 

124C 


LNJ 

SB4,<R TC 

Ou3256 

ODBD 

0006 



DC 

6 

003459 

ODbt 

6 F 00 

OEEL 


SAVE 

<L65SV3,=X»78b4» 


odCo 

7864 





003260 

ODCI 

6L70 

803F 


LEV 

= Z ' 6 0 3 F ' 

003*61 

0DC3 

OF 8b 



B 

>D0l3 


00 3462 
0U3263 
003264 
003265 
003266 
003267 
003266 
003269 
003270 
003471 
003274 
003273 
00347 * 
003276 
003276 
003277 
00347b 
003479 
003280 
003281 

003482 

003263 

003284 

003288 

003486 

003287 

003286 

003289 

003290 

003291 

003292 

003293 

003294 

003293 

003296 

003297 

00329b 

003299 

003300 

003301 

003302 

003303 

003304 

003303 

003306 

003307 

003306 

003309 

003310 

003311 

003312 


0003 

OF61 OOOF 
C3C0 0433 
0360 084E 
8205 
0010 
0363 

F380 125C 

6205 

4000 

0303 

F 360 125C 


1C00 

3B02 

1E20 

C380 OEOC 


C360 0E23 
E870 0200 
0956 
0903 

F 380 125C 


9380 0FB9 


DATA StT SCAN BIT NOT SET 


ADDRESS OF LEyEL 

output o to levee 

HEAD P VALUE TO TEMP 


CHANNEL PROGRAM NOj STARTEO bY 
SCAN WUH BIT 3 UF CHAN COMMAND * 1. 
TLbT NtXI MASK BIT 


INITIALIZE CHANNEL 
DELAY 25 MS. 

SEND OUT LCT 


SET LCI 
TABLE ADDRESS 


RECEIVt MASK 
XMIT MASK 
END OF TABLE 

SET LCI BYTES FOR LEV6 ♦ RtI• CHANNEL 
INITIALIZE IN j ERRUPTS 

SET FOK LEVEL 6 IN LEVEL TABLE 
SET UP VECTOR FOR LEVEL 

SET FOR ONE RuPT EXPECTED 

set flag fo scan 


OUT PUI VALUE 


SET P VELTUk *N LEVEL 63 SAVE 
SET RTC 10 INTERRUPT 
AFTER 80 MS 


SUSPEND CURRENT ANQ GO TO 63 


* LtVEL 63 CODE. OUTPUT A DATA SCAN CONTRUL WORD WITH 

* BIT 0=1, SCAN, BIT 1=0 (StT STATUS) BIT 2=1 (INTERRUPT)' 

* BIT 3=0 (START CHANNEL PROGRAM). 


A008 

SCIT3 

LDR 

btVN 

SRI , =Z'A00b' 

SR3,>$+2 

BRANCH 

IF RECEIVE 



ADV 

SKI , = X»20' 

MODIFY 

FOR XM1T 

utoc 

ODC* 

WRUPT 

LNJ 

NUP 

NOP 

Sb4,<0UJLCT 

<sci r*i 

>SU 12 

OUTPUT 

byte 



b 

>WRuPl 

WAIT FUR INTEkKOPT 


* RETURN HERE VIA RTC INTERRUPT. CHECK LC * STATUo TO INSURE 

* ThAT OATA SET SCAN BIT IS RESET. 


RTCF 

b 

DOLoB 

TURN OFF REAL TIME CLOCK 

TEMPORARY BYPaSS ********************* 

LNJ 

SB4,DLAY 

WAIT FOR CHANNEL PROGRAM 

TO FINISH 

LNJ 

SB4,<ILCT S1 

INPUT LCI STATUS Tq R5 


Lb 

=SR5,=X»10« 

GET DA 1A SET CHANGE BIT 


BBF 

LNJ 

>S + *♦SAF 

SB7,<LRROR 

DATA StT SCAN BIT IS SET 

WHEN 

LB 

= $K5 , =X * 4000 * 

IT SHOULDN'T Be.. 

GET INIERRUPT STATUS BIT 


BBT 

LNJ 

>$+2+$AF 

SB7,<ERROK 

DATA StT SCAN DIDN'T SET 

RUHT BIT 


* RESET LEVEL IN lCT SO FOLLOWING BLOCK RtAD WILu NOT CAUSE AN INTERRUPT 

* 

OOLBb LOV SR1,=X»D* ADDRESS UF LEyEL 

BEVN SR3,>S+2 BRANCH IF RCV 

AOV SRI, = X * 20' 

LNJ SB4,<OUTLCT OUTPUT 0 TO LEVEL 

* CHECK P COUNTER TO INSURE THAT THE CHANNEL PRQuRAM 

* 01 ON * T START. 


SB4,<RPVLU 
$R6, = X•200' 
SR8,=$K6 
>$*Z+SAF 
$B7,<ERROR 


* CHECK THAT INTERRUPT OCCURED 


LNJ SB1,<CHLV 

* 

* TEST FOR NEXT CHANNEL 


REAO P VALUE TO TEMP 


CHANNEL PROGRAM STARTED 
BY DATA StT SCAN WHEN IT 
SHOULD NO I HAVc. 


CHECK IN IERRUPT OCCURED UN CHANNEL 


TITLE DCMC1 'REV, A* 


PAGE 34 


003313 

0Q3314 

003313 

003316 

003317 

003316 

003319 

003320 

003321 

003322 

003323 

003324 

003326 

003326 

003327 

003326 

003329 

003330 

003331 

00333c 

003333 

003334 

003336 

003336 

003337 

003336 

003339 

003340 

003341 

003342 

003343 

003344 

003346 

003346 

003347 

0033^6 

003349 

003350 

003351 

003352 

003353 

003354 

003355 

003356 

003357 

003356 

003359 

003360 

003361 

003362 

003363 

003364 

003365 

003366 

003367 

00336o 

003369 

003370 

003371 

003372 

003373 

003374 

003375 

003376 

003377 

003376 

003379 

003380 

003381 

003382 

003383 

003384 

003385 

003386 

003387 

003386 

003389 

003390 


ODtF 

OF 80 

OCFA 

b 

<DSSTLP 




* channel program for scan 

■it- 

DDF 1 

01BD 


SCNPKG DC 

sZ'OlbD' 

0UF2 

3100 


DC 

=Z'3100' 

0UF3 

BD31 


DC 

= Z'uD31 * 

0DF4 

OOBD 


DC 

= Z'OOBD • 

0DF5 

3100 


DC 

=Z•3100• 




* SUBROUTINES 

FUR INTERRUPT 

0DF6 

CED5 


LEVRCH SWB 

SB4,=$B5 

0DF7 

8C51 


STS 

= $R 1 

DDF 6 

9570 

03C0 

AND 

$R1 * = Z '03C0' 

DDF A 

9F00 

1548 

STR 

SRI*<RTCHN 

ODFC 

9670 

0006 

XOR 

SR 1 * = 6 

ODFt 

C800 

1565 

LDR 

*R4,<C0NT11 

OEOO 

C380 

1173 

LNJ 

SB4 » <CGSCH 

0E02 

8051 


10 

=$R1»:$R4 

0E03 

0054 




0E04 

0703 


BIOT 

>$+2+SAF 

0E05 

F 380 

125C 

LNJ 

SB7 * <ERRUR 

0E07 

CED5 


SwB 

SB4,=SB5 

0E06 

8384 


JMP 

SB4 




* LCT CONTROL 

FOR SCAN TEST 

0E09 

0008 


SCTSVA DC 

= Z•D008 * 

OEOA 

D028 


DC 

= Z * D028' 

OEOB 

0000 


DC 

0 




* OUTPUT LCT 

BYTE contained 

OEOC 

CED5 


OUTLCT SwB 

$B4,=SB5 

OEOD 

C800 

1560 

LDR 

SR4♦<C0NT5 

OEOF 

C380 

1173 

LNJ 

SB4.<CGSCH 

0E11 

8051 


10 

=$K1*=$K4 

0E12 

0054 




OE13 

0703 


BIOT 

>$+2+SAF 

0E14 

F 380 

125C 

LNJ 

SB 7 t <tRROR 

OE 16 

CED5 


SWb 

SB4,=$B5 

Ot 17 

8384 


JMP 

Sb4 




* ISSUE CHANNEL initialize 

OE 18 

CED5 


CHINTZ SwB 

SB4,5SB5 

Ot 19 

C800 

1562 

LDR 

SR4,<C0NT7 

Otlb 

C380 

1173 

LNJ 

SB4 * <CGSCH 

OE 1D 

8070 

8000 

10 

= Z * 6000' * = SK4 

Ot IF 

0054 




0E20 

0703 


BIOT 

>S + 2 + SAF 

0E21 

F380 

125C 

LNJ 

Sb7ERROR 

OE23 

CED5 


SWB 

$B4,=$B5 

0E24 

8384 


JMP 

SB4 




X READ P value FROM RAM 

OE25 

1C06 


RPVLU LDV 

SR 1 »= 6 

0E26 

BFOO 

14CD 

STR 

SR3 * < T PR 

0E2 8 

3B03 


bEVN 

SR3 *>D0L4 

0t29 

88D3 


DEC 

= SR3 

0E2A 

1C26 


LDV 

SR 1 ♦ -38 

0E2B 

C853 


D0L4 LDR 

SR4*=SR3 

0E2C 

4F20 


ML V 

Sk4»=X»20* 

Ot2D 

9A54 


ADD 

SRI»=SR4 

0E2l 

9F00 

0E34 

STR 

SR 1»<PVLU1 

0E3U 

9380 

1098 

LNJ 

SB 1»<RDAT A 

UE32 

14CE 


DC 

< T EMP 

0E33 

0002 


DC 

2 

0E34 

0000 


PVLU1 DC 

o 

0E35 

0000 


DC 

0 

0136 

D800 

14Ct 

LDR 

SR5*< TEMP 

0L36 

0570 

FFFF 

AND 

SR5»=Z'FFPF' 

0E3A 

DFOO 

14CE 

STR 

SR5»<T EMP 

0E3C 

b800 

14CD 

LDR 

SR3,<TPR 

0E3E 

8384 


JMP 

SB4 


GO TO NEXT CHANNEL 


NOP * <WAIT 
WAIT* WAIT 


SAVE b4 
GET S KEG 
STRIP 10 CPU iD 


PUT IN LEVEL 6 

FUNCTI UN CODE FOR OUTPUT INI CONT 
MODIFY FUR CHANNEL 
OUTPUT INTERRUPT CONTROL 


COMMAND WAS NAK'ED 
RESlORE 04 


RCV SCAN CONTROL 
= ZMIT SCAN CONTROL 


OUTPUT LCT BY|E FUnC CODE 
MODIFY FUR FOk CHANNEL 
OUTPUT BYTE 


COMMAND WAS NaK'ED 
RESTORE B4 


CHANNEL CONTROL 
MODIFY FUR CHANNEL 


COMMAND WAS NAKED 
RESTORE B5 


BRANCH IF REAu 
GET READ CHANNEL 


FORM SI ART OF LCT AREA 
FORM ADDRESS OF P COUNTER 

DO BLOCK READ 

TO HERE 

2 BYTES 

RAM ADDRESS 

START AT EVEN CPU BYTE 


GET BACK TESTED CHANNEL 


INTERRUPT TEST. 

DO BLOCK WRITES AND READS AND CHECK interrupts. 

3 DEFERED INTERRUPTS ARE ACCUMULATED UN ALL CHANNELS 
- LEVELS 5-62 ARE USED 


003392 

0E3F 

b870 

5420 

003393 

0E41 

bFOO 

1581 

003394 

Ot 4 3 

FbCO 

0003 


0E45 

0360 

0000 


0E47 

OF 80 


003395 

0E46 

1648 


0L49 

8E70 

0080 

003396 

Ot4b 

5C05 


003397 

003396 

0E4C 

DFOO 

0E7E 

003399 

UE4E 

dB60 

1 EBB 

003400 

Ot 50 

bF80 

0E64 

003401 

0E52 

C870 

0200 

003402 

Ot 54 

CFOO 

0E65 

003403 

0E56 

8753 


003404 

0E57 

2CF0 


003405 

003406 

0E56 

4C02 


003407 

00340b 

003409 

0E59 

C380 

10FC 

00341U 
003411 

Ot5d 

9380 

OF 18 

003412 

003413 

003414 

0E5D 

C360 

10EC 

003415 

003416 

Ot 5F 

OF 92 


003417 

0E60 
Ot.61 

8751 


00341b 

5 CFO 



LDR SR3»=A'T » 

STR $R3 *<ERMG+1 

CALL ZV$T.ZV$rC,TSTT 


LEV =Z' 0080 ' 

LDV SR5*=5 

STR $R5,<LVSTR 

# 

PRILP LAB SB3,<SDb 

STB SB3» < ADD 

LDR $R4 » = X•200' 

STR $R4,<KAD 

CL 5$R3 

LDV SR2*s-l6 

LDV $K4,=2 

* 

* INITIALIZE CONTROLLER 

* 

LNU SB4 * <GENIT Z 

•LNJ S61f<INTITZ 

* 

* SET UP 3 CCB'S FOR EACH CHANNEL 

# 

CCBLP LNJ SB4,<FLN 

B >RT 1 

# 

CL =$K1 

LDV sR 5.=-3 


SUSPEND ♦ QUICK CH A ngE TU LEV 0 
STARTING level NUMBER 
starting LEVEL 

GET ADDRtSS OF SEND DATA BUFFER 
RAM ADDRtSS 
R3 15 CHANNEL COUNTER 
RANGE UF TWO BYTES 


MLCC general initialize 
INITIALIZE INTERRUPTS 


FIND ACTIVE LINE 
ALL HAVE BEEN FOUND 

ru o means LtFT Byte bounory 







TITLE DCMC1 «REV. A* 


PACE 35 


003419 




* 




003420 

0t62 

C360 

1189 

NEXT5 

LNJ 

$64 t <MCCB 

FORM CCB 

003421 

0 E64 

14C7 


ADD 

OC 

<DUMMY 


003422 

0t65 

0000 


RAO 

OC 

= X»U» 

RAM ADDRESS 

003423 




* 




003424 

0E66 

57FC 



BINC 

$R5*>NEXT5 


003425 

0E67 

8AD3 



INC 

= $R3 

SET FOR NEXT CHANNEL 

003426 

0L66 

6A80 

0t64 


INC 

<A0O + $AF-1 

BUMP CPU AOORcSS 

003427 

0E6A 

8A80 

0E65 


INC 

<RAO 

BUMP RAM ADDRtSS 

00342b 

0E6C 

8A80 

0t65 


INC 

<RA 0 

BUMP A0A1N 

003429 

0E6L 

AF48 

FFF5 


SIR 

$R2**ADD 

SET UP DATA - ASCENDING PAT IERN« . 

003430 

0L70 

2 7 tO 



6 1NC 

$R2 *>CCbLP 

BRANCH IF MORl TO GO 

003431 




* SET 

UP LEVELS 


003432 

0E7 1 

0600 

0t7t 

KT1 

LOR 

$R5 *<LVSTR 

SET LEVEL STAkT 

003433 

,0t7 3 

A870 

8000 


LUR 

$R2i = 2 1 8000 * 


003434 

•0E75 

9852 


KT6 

LOR 

$R1 * = $R2 


003435 

Ot 76 

9500 

1460 


AND 

$R1< < 1 MASK 

STRIP 10 channel bit 

003436 

0678 

1900 

0E86 


BtZ 

$Rl»<RT 7A 


003437 




* 




00343b 

0E7A 

9F00 

0E7F 


STR 

$R1,<CHAN 

INITIALIZE CHANNEL 

003439 

0L7C 

9380 

OF A8 


LNJ 

$61»< F T BL 

SET LEVEL 

003440 

0E7t 

0000 


LVSTR 

OC 

0 

LEVtL 

003441 

0E7F 

0000 


CHAN 

DC 

0 

CHANNEL 

003442 

0E80 

26A0 



OC 

< 1 L V 

LEVEL 1 ABLE 

003443 

0E8 1 

8 AD5 



INC 

= $K5 


003444 

0E82 

503F 



CMV 

$K5«=63 

CHECK IF LAST LEVEL 

003446 

0t83 

0905 



bt 

>R T 5 

BRANCH IF LAS] LEVEL 

003446 

0184 

OF 00 

0E7t 


STR 

$R5i<LVSTR 

SET FOR NEXT lEVEL 

003447 

0L86 

2041 


RT7A 

SUR 

$R2 i 1 


00344b 

018 7 

2 9 tt 



bNEc 

$R2 »>R f6 

DO NEXl CHANNlL 

003449 




* 




003450 




* FORM MASK 

FOR LINES TU BE TESTED 

003451 




# 




003452 

Otttb 

1CF0 


KT5 

LOV 

$R1* = -16 


003453 

0E89 

8752 



CL 

= $R2 


003454 




* 




003455 

0E8A 

b810 

26B0 

KT7 

LOR 

$R3*<ILV*I6#$Ri 

GtT LEVEL FOR CHANNEL 

003456 

0E8L 

8 AO 1 



INC 

= $R 1 


003457 

Ot 80 

2011 



SCL 

$R2,1 


00345b 

OEbt 

3903 



BtZ 

$R3i>RT8 


003459 

0t6F 

A670 

0001 


XUR 

$R2 *=2*0001* 

PUT IN BIT FOk CHANNEL 

003460 

0691 

1879 


RT6 

till 

$KU>KT7 

MORE TO 00 

003461 




* 




003462 

0t92 

AF 00 

0E96 


STR 

$R2*<KT2 


003463 

0t94 

AFOO 

OEAO 


STR 

$R2,<RT3 


003464 

Ot96 

AFOO 

14t 1 


STR 

$R2 *<MASK 


003465 




* 




003466 




* 




003467 




* SET 

UP INTLRRUPI INFORMATION 


00346b 




* 




003469 

Ot96 

9380 

0FA8 


LNJ 

$61»<FT6L 

SET EXPECTED INTERRUPT CUUN1 

003470 

0E9 A 

FFFO 



OC 

-3 

3 INTERKUPT/ChANNEL 

003471 

0E9b 

0000 


KT2 

OC 

0 

MASK FUR TESTED CHANNELS 

003472 

0L9C 

2680 



OC 

< INMb 

TABLE ADDRESS 

003473 




* 




003474 

0190 

9380 

OF A8 


LNJ 

$61 * <F TbL 

StT EXPECTED STATUS 

003475 

0E9F 

5000 



DC 

=2*5000* 

WHAT SI Al SHOULD Be 

003476 

OtAo 

0000 


KT 3 

OC 

0 

MASK FOR TLSTtD CHANNELS 

003477 

Ot A1 

2690 



OC 

<ISl 

ST A I US TABLE 

00347b 




# 




003479 




* StT 

INTERRUPT VtClORS 


003460 




* 




003481 

Ot A2 

C380 

1006 


LNJ 

$64*<SET VEC 


003482 




* 




003463 




* SENO 

• UuT LEVEL AND CHANNEL 


003484 




* 




003485 

Ot A4 

6380 

1 OCA 


LNJ 

$63 *<SETV 


003486 

OtAo 

8753 



CL 

= $R3 


003487 

Ot A 7 

C380 

1OEC 


LNJ 

$B4,<FLN 

FIND LINt NUMbER 

003488 

Ot A9 

0000 



HLT 


NO ACTIVE UNt NUMBERS 

003489 




* 




003490 




* TURN 

UN all channels 


003491 




* 




00349c 

OtAA 

1CFD 



LOV 

$K1 * =-3 

3 BLOCK OPERA!IONS/CHAN 

003493 

OtAb 

b380 

1060 

RT10 

LNJ 

$B3 *<TRNON 

TURN ON ALL CHANNELS TO BE TESTtD 

003494 

OtAO 

0400 



OC 

=2*0400* 

START BLOCK WRITE CHANNEL CONTROL 

003495 

OLAt 

0001 



OC 

1 

BLOCK WRITE OPERATION 

003496 




* 




003497 

Ot AF 

6380 

1060 


LNJ 

$B3♦< TRNON 

TURN ON CHANNELS 

003498 

Otbl 

0800 



OC 

=2*0800* 

BLOCK READ OPlRAUqN 

003499 

0L62 

0002 



OC 

2 

BLOCK RtAD 

00350.0 




* 




003501 

Otb3 

C.380 

1205 


LNJ 

$64 * <DLAY 

DELAY 25 MS 

00350c 

0LB5 

1780 

0EA6 


BINC 

$K 1 * <RT10 

BRANCH IF NO f LAST TIME 

003503 




* 




003504 




* SET 

UP RTC 

FOR 100 MlLLIStC 


003505 




# 




003506 

Otb7 

C380 

124C 


LNJ 

$64,<RTC 


003507 

0tb9 

OOOC 



OC 

= 12 

120»S OF A SEc 

003508 




* NOW 

SWITCH 

LEVELS TO 63 AND 1 

WAIT FOR SMOKt TO uLEAR 

003509 

OtbA 

8F00 

OEtE 


save 

<L63SV3,=X*7884» 



OtbC 

7884 






003510 

otbo 

8E70 

603F 


LEV 

= 2 » b 0 3 F * 

SUSPEND CURRENT AND DISPATCH 63 

003511 




# 




00351c 




* RETURN HERt AFT tR INTERRUPTS 

HAVE OCCURtD 

003513 

ObBF, 

0005 



RTCF 


SHUT OFF RTC 

003514 




* CHECK ALL 

INTERRUPTS OCCURED 


003515 

otco 

9380 

OF 69 


LNJ 

$B1»<CHLV 

CHECK ALL LEVELS INTERRUPTED 

0035lo 




* 




003517 




* END 

OF 1 LOUP THRU 


00351b 




* 




003519 

0EC2 

5D3F 



CMV 

$R5*=63 

CHECK FOK LAST LEVEL 

003520 

OtC3 

0200 

0E4E 


6L 

<PK1LP 

MORE TO 00 

003521 

OtC5 

8382 



JMP 

$B2 

EXIT TtSI 

003522 




* 




003523 




* REAL 

* DATA 

SET STATUS 


003524 




# 




003525 

0EC6 

8F40 

0650 

DSSTA 

SAVE 

SAV3 * =Z•0008 * 

SAVE B* 


0tC8 

0008 






003526 

0EC9 

C800 

1566 


LOR 

$K4«<CQNT12 

GET FUNCTION CODE 

003527 

otCb 

C380 

1173 


LNJ 

$B4,<CGSCH 

OR IN CHANNEL NUMBER 

003528 

otco 

8055 



10 

=$K5*=$R4 

INPUT DA I A SET STATUS 


otct 

0054 







TO -1 
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003529 

003530 

003531 

003532 

003533 

003534 

003535 

003536 

003537 


OECF 0703 
0EDO F38Q 125t 
OEDZ 8FC0 0644 
0ED4 0008 
0ED5 8384 


BIOT >$+2+$AF 
LNJ $B7*<ERRQR 
RSTR SAV3 * = Z * 0008• 


COMMAND WAS NAK*ED 


003538 

003539 



* INTERRUPT 

* 

SAVE AREA - LEV 4 


003540 

0ED6 

0000 

ISAV4 

RESV 

$AF*0 

TRAP SAVt POINTER 

003541 

0ED7 

0000 


RESV 

1*0 

CHAN* LEVEL 

003542 

OEDb 

0000 


KESV 

1*X*0* 

SAVE NU REGISTERS 

003543 

0ED9 

0000 


RESV 

1*0 

RFU 

003544 

OEDA 

1Q5C 

IS4S 

DC 

< I MuN 

CCB SCHEUULAR 

003545 

003546 

OEDb 

FFFF 

# 

DC 

-1 

SET PRIVILEGE BIT 


003547 



* INTERRUPT 

SAVE AREA * ERROR 

INTERRUPT 

003548 



* 



003549 

OEDC 

0000 

ERRINT KESV 

3>AF *0 

TRAP SAVE AREA POINTER 

003550 

OEDD 

0000 

RESV 

1*0 

DEVICE ID 

003551 

OEDE 

0000 

RESV 

1*0 

RFU 

003552 

OEDF 

0000 

DC 

2*0000* 

SAVE 

003553 

OEEO 

OEFE 

DC 

<ERuPT 

ERROR RUPT ROUTINE 

003554 

OEE1 

FFFF 

DC 

-1 

SET PRIVILEGE 


003555 

003556 

003557 

003558 

003559 

003560 

003561 

003562 

003563 

003564 


003o34 

003635 

003636 

003637 

003638 

003639 


* RTC SAVE AREA 


RTC5AV KESV 
NESv 
KtSV 
UC 

KT CSV 1 OC 


$AF»0 

1*0 

1*0 

2 * 0000 * 
<R1CHOL 

-1 


003565 




* INTERRUPT 

SAVt AREA - LtVI 

003566 




* 


003567 

OEEb 

0000 


L63SV1 RESV 

$AF * 0 

003568 

0EE9 

0000 


RESV 

1*0 

003569 

OEEA 

7884 


KESV 

1 * X • 7 8 84 • 

003570 

0LE6 

0000 


KESV 

1 *0 

003571 

OtEC 

GEF4 


L63SV2 DC 

<L63HDL 

003572 

OEtD 

FFFF 


DC 

-1 

003573 

CELL 



L63SV3 RESV 

5 + $AF 

003574 




* 


003575 




* 


003576 




* 


003577 




* LEVEL 63 CONTAINS »WAIT* , 

003578 




* 


003579 

0EF4 

OF 00 

14C7 

L63HDL NOP 

<DUMMY 

003580 

OEFb 

OFFE 


6 

>L63MDL 

003581 




* 


003582 




* TRAP SAVE 

AREA IS AT LOC 

003583 




* 


003584 




* 


003585 




* TRAP ERROR 

ROUTINE 

003586 




* 


003587 

01F 7 

8C00 

OFO 5 

TRPLRR STS 

< L A S T 

003588 

0EF9 

8E70 

0080 

LEV 

= X * 0080• 

003589 

OEFB 

F380 

125C 

LNJ 

$67*<ERR0R 

003590 

OEFD 

0000 


HLT 


003591 




* 


003592 




* ERROR INTERRUPT 

003593 




* 


00359* 

OLFE 

8C00 

0F05 

ERUPT STS 

<LAST 

003595 

OF 00 

8E70 

0080 

LEV 

= X * 0080' 

003596 

OF 0<£ 

F 380 

125C 

LNJ 

Sb7,<ERK0R 

003597 

OF 04 

0000 


HLT 


003598 

0F05 

0000 


LAST DC 

0 

003599 




* 


003600 




* RTC INTERRUPT ROUTINE 

003601 




* 


003602 

0F06 

8E70 

8000 

SETNtW LEV 

=2*6000* 

003603 

0F08 

8 ABO 

OFOC 

KTCHDL INC 

<RTCFLG 

003604 

OFO A 

83C0 

FFFB 

JMP 

SETNtW 

003605 

OFOC 

0000 


RTCFLG DC 

0 

003606 




# 


003607 




* INITIALIZATION 1 ABLE FOR 

003608 




* 


003609 

OFOD 

0EE6 


INTEL DC 

<KT CSV 1 

003610 

0 F 0 E 

0F08 


DC 

<RT CHDL 

003611 

OF OF 

OEEC 


DC 

<L63SV2 

003612 

OF 1U 

0EF4 


DC 

<L6JhDL 

003613 

OF 11 

OEDA 


DC 

<IS4b 

003614 

OF 12 

105C 


DC 

< I MUN 

003615 

OF 13 

OF 17 


DC 

<STKP7R 

003616 

OF 14 

2660 


DC 

<PR1ST 

003617 

OF 15 

OF 16 


INLLST DC 

<INLLST*$AF 

003618 

0 F 1 o 

26CC 


PRIEND DC 

<PR1ST♦16 

003619 

OF 17 

2660 


STKPTk DC 

<PR1SI 

003620 




* 


003621 




* 


003622 




* 


003623 




* 


003624 




* INITIALIZATION FUR INTERR; 

003625 




* 


003626 




* ENTERED 

BY LNJ $Bi*<IN 

003627 




* 


003628 

OF 18 

8F40 

05CE 

INTITZ SAVE 

SAV1*=Z*FFFF* 


OF 1A 

FFFF 




003629 

OF 16 

D680 

OFOD 

LAB 

SB5,<INTbL 

003630 

OF 1D 

ACF5 


I TNI LD6 

$B2 *♦SB5 

003631 

OF IE 

DD80 

OF 1 5 

CMB 

SbS,<lNLLST 

003632 

OF 20 

0904 


BE 

>1NI NX 

003633 

0F21 

dCF 5 


LDb 

$B3*^SB5 


DEVICE 10 GETS STORED HERE 
SAVE 

POINTS TO INTcRRUPT ROUTINE 
SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN * <LEVEL 
SAVE Ri*K2,R3*R4*I,B5 
RFU 

POINTS TU INT* ROUTINE 
SET PRIVILEGE BIT 
SAVE AREA 


STORE STATUS 

ERROR* SHOULD BE Nq TRAPS 


STOKE LAST STATUS 

ERROR, BAD INTERRUPT OCCURED 


LAST 5 I AlUS SI ORED HERE 


SCHEDULE LEVEu = 0 

GO TO LEVEL 0 

REAL TIME CLOCK FLAG 


RTC SAVE POINTER 
RTC RUPT POINTER 
LEVEL 63 P SAvE 
LEVEL 63 RUPT HANDLER 
LEVEL 4 SAVE 

PRIORI1Y STACK POINTER 

LAST IN LIST 


0680 OEDD 
AB60 0000 
iCCl 


1NTNX LAB 
LAB 


SB3*Sb2 
> I Tml 

*65*<ERRINT+$AF 
$B2,<ZHISAZ 
$K1*=-63 


SAVE ALL 

GET ADDRESS OF LIST 

62 GETS POINTER 

BRANCH MtANS WE GOT END OF LIST 

63 GETS VECTOk 
PUT IN VECTOR 
DO NEXT IN LIoT 

GET ADDRtSS OF ERROR SAVt 
WHERE 10 START STORING H 
63 VECIOKS 
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003640 

0F29 

DFP2 



003641 

OF 2 A 

17FF 



003642 

003643 

00364* 

00364b 

0F2b 

1CEC 



003o4o 

003647 

0F2C 

DB80 

0000 

X 

003648 

0F2L 

AbbO 

0000 

X 

003649 

OF 30 

DFE2 



0036SO 

OF 3 1 

17FF 



0036b I 

OF 32 

AB80 

UOOO 

X 

0036b2 

OF 3* 

AF80 

0000 

X 

O036b3 

OF 36 

AbbO 

0000 

X 

0036b4 

OF 3b 

DB80 

266B 


OO30bb 

0036b6 

OF 3 A 

DF82 



0036b7 

OF 3b 

DB80 

0EE3 


OO36b0 

OF 3D 

DFC2 

0003 


003659 

0 F 3 F 

DbbO 

0ED7 


003660 

0F41 

DFC2 

0004 


00366 I 

0F43 

DbbO 

0EE9 


003662 

OF 4 b 

DFC2 

003F 


003063 

0F4 / 

8 7b 1 



003664 

0F4b 

9F00 

OFOC 


00366b 

0F4A 

9F00 

14D2 


003b66 

0F4C 

9F 00 

14D1 


0 0 3 o 6 7 

0F4E 

9F0G 

0001 

X 

003060 

OF bO 

9F00 

0002 

X 

003669 

OF b2 

9F00 

0003 

X 

003670 

OF b4 

9870 

8000 


003671 

003672 

OF b& 

9F00 

0000 

X 

003o73 

OF b0 

DB80 

14DB 


00367* 

00367b 

003076 

003677 

OF bA 

DF 80 

0000 

X 

003676 

003679 

OF bC 

8700 

14E2 



OF bE 

FbCO 

0003 



0F60 

D38u 

0000 

X 


OF 62 

0F80 




OF 63 

2690 




OF 64 

14E2 




0F6b 

14A9 



OO3o0O 

003681 

063082 

003083 

OF 66 

FBCO 

0003 



OF 60 

D380 

0000 

X 


OF 6A 

OF bO 




OF 6d 

2 6 AO 




OF 6C 

14E2 




0F6D 

14A9 



003o8* 

0 0 3 0 8 b 
Q03o8o 
003o8/ 
003686 

0F6E 

8 A80 

14E2 



OF 70 

FBCO 

0003 



0 P 7 2 

D380 

0000 

X 


OF 74 

OF 80 




OF 7b 

2680 




OF /0 

14E2 




OF 77 

14A9 




* SET UP VECT 

* 


LAb 

bVEC bib 
a INC 
LAo 
bTb 
LAb 
LAb 
bTb 

* PUT IN RTC* 

LAb 

bib 

LAb 

bTb 

LAB 

bib 

CL 

SIR 

SIR 

b T R 

bTR 

bTR 

bTR 

LDR 

bTR 

* CLLAk OUT I 

LAb 

bTb 

* 

* INITIALIZE 

* 

CL 

CALL 


Sbb,+SB2 
SKI*>ITM2 


URb EUR TRAPb 


R1 * = »20 
Sbb *<ZHPFR 


*<ZH1SAZ 
*-SB2 
*>5V EC 
,<ZHTSA 
i<ZHNTSA 

* <ZHI$AZ 

* <TQPbAV 
*SB2 

4 ♦ 63 VECTORS 
*<RTCSAV*$AF 
>Sb2,3*$AF 

* <ISAV4 + SAF 
*Sb2.4*sAF 
♦<L63SV1+$AF 
*SB2*63*SAF 

i 

* <RTCFLG 

* <CCbF LG 

* <5CFLG 

* <ZH IAFb*1 
♦<ZH1AFb+2 

* <ZH 1AFb* 3 

*=z»aooo* 

,<ZHIAFb 
SAVE AREA 
*<TSA2 
*<ZHTSA 


STATUS TAbLE 
<MASK 1 

ZV$F*1SI *MASKi*Cl6 


CLEAR TRAP HANDLER.POINTEKS 


GET LQCAIION uF TRAP SAVE AREA 

GET RUPT POINTER BASE 
ADDKEbb OF LEVEL 0 SAVt AREA 


ADDRESS OF RTc SAVE AREA 

GET LOC UF RUPT SChEDULAR SAVE 

GET ADDRESS OF LEV 63 SAVE AREA 


CLEAR UU! RTC FLAG 
RESET CCb FLAu 
RESET SCAN FLAG 


SET LEVEL FOR 0 


GET TRAP SAVE POINTER 


003689 

003690 

003691 

003o9Z 


FbCO 0003 
D38Q 0000 


* initialize level table 

CALL Z V$P *ILV *MASKl*C16 


* INITIALIZE COUNT TAbLE 

* 

INC <MASKI 

CALL ZVSP * INMb*MAS< 1 *06 


* FILL PRIORITY LIST 

* 

CALL ZVSF*PKIST*ALL0NE*C16 


Q03o93 

003b94 

00369b 

003696 

003697 

003696 


6700 14E2 

FBCO 0003 
D360 0000 
OF 80 
2bAA 
I4E2 
0FA7 


* CRtATt INTERRUPT SAVE AREAS 

* 

CL <MASKl 

CALL ZVSP * 1 SI»MASK I»CNF ILL FILL bDb WITH 0*S 


START OF ISA'S 
R1 IS INDEX 


003699 

OP 8A 

BB80 

2bAA 


LAb 

SB3 * <1 Si 

003700 

0P8C 

87b 1 



CL 

• SRI 

003 /01 




# 



003702 

0F8D 

9CF3 


M1SA 

LDb 

sbi*♦ sbi 

003703 

0F8E 

9873 



LDR 

$R1 * + SB3 

003704 

0F8F 

C870 

7884 


LDR 

SR4,=X»7884* 

00370b 

OF 91 

CF73 



STR 

SR4 * 4-SB3 

003 /06 

OF 92 

C873 



LDR 

SK4 »-f $B3 

003 /07 

OP 93 

9b80 

1020 


LAB 

SB1 * < I HD1 

003708 

0F9b 

9FF3 



STB 

$B1 * + SB3 

003709 

OF 96 

4CFF 



LDV 

SR4,=-1 

003710 

0F97 

CF 73 



SfR 

SR4,+$bi 

003711 




* 



003/12 

OF 98 

9CF3 



LDb 

Sbl*+$B3 

003713 

OF 99 

BBC3 

000b 


LAB 

SB3* SB3•b 

003714 

0F9B 

bD80 

14CA 


CMB 

SB3♦<ENDSAV 

003 71b 

OF 9D 

09F0 



BNE 

>MiSA 

003716 




* 



003717 




# 



003/18 




* CREATE LEVEL 0 SAVE AREA 

003719 




* 



003720 

0F9E 

1CFF 


MISb 

LDV 

$ki*=-l 

003721 

0F9F 

9F00 

266C 


STR 

SR 1 * < TQPSAV+1 

003722 

0FA1 

9F00 

266E 


STR 

SKl*<TQPSAV+2+$AF 


BUMP PAS! TSP 

BUMP PAS! CHANNEL* DEVICE 

MASK 

mask: 

bUMP PAS! SECOND MASK 


BUMP FUR b IN SAVE 


BRANCH IF NOT DONE 
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003723 

0FA3 

8FC0 

0543 


0FA5 

FFFF 


00372A 

0FA6 

8361 


003725 




003726 

0FA7 

00D6 


003727 




003726 




003729 




003730 




003731 




003732 




003733 




003734 




003735 




003736 




003737 




003738 




003739 




003740 




003741 




003742 




003743 




003744 

0FA6 

8F40 

053E 


OF AA 

70BO 


003745 

OFAB 

A87 1 


003746 

OF AC 

B871 


003747 

QFAD 

1CF0 


003746 

OFAt 

ACF 1 


003749 

OF AF 

b6C2 

0010 

003750 

OF B1 

3862 


003751 

OF B2 

AF 1 3 


003752 

OF B3 

3011 


003753 

OF b4 

17FD 


003754 

OF B5 

6FC0 

0531 


OF b7 

70B0 


003755 

OF B8 

6381 


003756 




003757 




003758 




003759 

OF B9 

8F40 

052D 


OF Bb 

3000 


003760 

OF BC 

6753 


003761 

OFBD 

2 CFO 


003762 

OF BE 

69 BO 

26A0 

003763 

OF CO 

0906 


003764 

0FC1 

69B0 

2680 

003765 

0FC3 

0903 


003766 

0FC4 

F 380 

125C 

003767 

GFC6 

8 AD3 


003766 

0 F C 7 

27F7 


003769 

OFCd 

8FC0 

05 1E 


OF CA 

3000 


003770 

OF CB 

6381 


003771 




003772 




003773 




003774 




003775 




003776 




003777 

OF CC 

6F40 

052 A 


OF CE 

E8E0 


00377o 

OF CF 

9CF 3 


003779 

OF DO 

8751 


003780 




003781 

0PD1 

Abll 


003782 

OF D2 

8 AD 1 


003783 

OF D3 

2985 


003784 

0PD4 

8FC0 

0522 


OF 06 

E8E0 


003785 

OFD 1 

8383 


003786 




003787 

0Fd8 

C800 

1560 

003786 

QPDA 

C380 

1173 

003789 

OF DC 

8052 



OFDD 

0054 


003790 

OF DE 

07 F E 


003791 

OFDF 

0FF2 


003792 




003/93 




003794 




003795 




003796 

OF EO 

8 P 4 0 

0526 


0FE2 

E8E0 


003797 

OF E3 

9CF3 


00379a 

0FE4 

9873 


003799 




003600 

OF E5 

8AD1 


003601 

OF E6 

9970 

0000 

003802 

0FE6 

0901 

FFFC 

003603 

OFEA 

9970 

0001 

003604 

OF EC 

0901 

FFF6 

003605 

OFtE 

9970 

0005 

003b06 

OFFO 

0901 

FFF4 

003607 

GPFz 

9970 

0009 

003806 

OF F4 

0901 

FFFO 

003609 

0PF6 

9970 

0015 

003610 

0FF6 

0901 

FFEC 

003611 

OFFA 

9970 

0016 

003612 

OF FC 

0901 

FFE8 

003613 

OFFE 

9970 

0020 

003614 

lUOu 

0901 

FFE4 

003615 

1002 

9970 

0021 

003616 

1004 

0901 

FFEO 

003617 

1006 

9970 

0025 

003816 

1006 

0901 

FFDC 

003619 

1OOA 

9970 

0035 

003620 

100C 

0901 

FFD8 

003821 

10UE 

9970 

0036 

003c22 

1010 

0901 

FFD4 

003623 

lUiz 

A811 


003o24 

1013 

2985 


003625 

1014 

8FC0 

04 F 2 


1016 

E8E0 



K5TR SAVl*sZ«FPFF« RESTORE ALL RlG 

JMP SBl 

* 

CNF ILL DC U5J*57*$AF) 

* 

£ ROUTiNtS TO SUPPORT INTERRUPT SERVICING 

###***# 

* 

*** 

* FILE 16 WORD DATA TABLE. 

* USED TO FILL ILV»1ST. PRIST. NXRNG*CFIG,INMB 

* 


* CALLED BY 

* 


* 

LNJ 

SB1 

♦<FTBL 

* 

DC 

XX 

VALUE 

* 

DC 

YY 

CHANNELS 

* 

DC 

<Z2 

TABLE ADDRESS 


FTBL 

SAVE 

SAV1»=2»70B0* 

Rl»R2tK3tB2*6j*I 


LDR 

SK2.+SB1 

PICK UP NUMBER 


LDR 

SK3.+SB1 

PICK UP MASK 


LDV 

LOB 

SRI.=-16 

SB2.+SB1 

SET COUNTER 

SLVLP 

LAB 

SB3.SB2.16 

ADDRESS UF END OF TABLE 

BGE2 

STR 

SR3,>ITM7 

SN2iS b3.SRI 

BRANCH IF bIT 0 = 0 

ITM7 

SCL 

Bift 

SR3.1 

SR 1 * >SLVLP 

SAV1♦=2 * 7UB0• 

ROTATE R3 

* 

JMP 

SB 1 

DONE 

* CHECK EXPECTED NUMBER OF INTERRUPTS ON tACH CHANNEL 

CHL V 

SAVE 

SAV1»s2•3000 * 



CL 

LDV 

= SR3 

SR2 * =-16 

WILL TRACK CHANNEL NUMBER 

CHLV1 

CM2 

BE 

CM2 

Bt 

<ILV.SR3 
>CHLV2 
<INMb.$R3 
>CHtV2 

CHECK IF CHANNEL WAS TO BE TESTED 

CHLV2 

LNJ 

SB 7»<ERROR 

WRONG NUMBER UF INTERRUPTS ON CHANNEL 

INC 

BINC 

RSTR 

= SR3 

$R2 . >CHLV1 

SAV1 *"2 * 3000 * 

BUMP CHANNEL NUMBER 

* 

JMP 

SB 1 

RETURN 

* SET 

# 

* 

# 

UP LCT 

FUR CHANNEL SPECIFIED 

LNJ SB3 «<SETLCT 
-DC TABLE 

IN R3 

SETECT 

SAVE 

SAV2 »sZ * E8E0• 

K1,<R2*<R4,<B2»<B1 


LDB 

CL 

SB1,*$63 
= $R i 

GET ADDRESS OF TABLE 

LCT4 

LDR 

INC 

SK2 tSbl.SKI 
= SR 1 

GET BY IE TO GjTPUT 


BNEZ 

KSTR 

SR2 *>LCT 5 

SAV2 * s 2•E8E0• 

BRANCH IF NOT AT END OF TABLE 

* 

JMP 

SB3 

RETURN 

LCT b 

LDR 

SR4.<CONT5 

function code fqrout lCT BY 11 

ECT3 

LNJ 

SB4.<CGSCH 

FORM 10 CONTROL WORD 

1U 

=SR2*=SR4 

OUTPUT BYTE 


CHECK IF TAKEN 
GET NEXT BYTE 


*ENDLCT ROUTINE Tu SEND LCT BYTES TO LEGAL LCT AkEAS 


SNDLCT SAVE 


SAVN. = 2 *ESEO * 


SAVE REGISTERS 



GET ADDRESS Oh THE TABLE 
IS IT LCI 0 

DON I send BY IE IF LCT 0 


GET THE BYTE 
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003t>2 6 

low 

8383 



JMP 

$63 

RETURN TU CALlER 

003627 




* 




003c28. 

1016 

C800 

1560 

LCN5 

LDR 

$R4 *<C0NT5 

FUNCTIUN CODE FOR OUT LCT 

003629 

101A 

C380 

1173 


LNJ 

$64 *<CGSCH 

FORM 1U CONTROL WORD 

003t>30 

101C 

8052 


LCN3 

IU 

-$K2 * = $R4 



1010 

0054 






003t>31 

lOlt 

07FE 



6I0F 

>LCN3 


003632 

101 F 

0FC6 



b 

>LCN4 


003633 




* 




003834 




* 




003633 




##*##************** 


003636 




* 




003o37 




* INTERRUPT 

HANDLER R0U1INE 


003636 




* 




003639 




*##*##************* 


003640 




* 




003641 

1020 

8C51 


1 HD 1 

STS 

= $R 1 

STOKE STATUS IN R1 

00364*: 

1021 

9570 

003F 


AND 

$R1 * ^X • 3F• 

STRIP 10 LEVEL 

003643 

1023 

6878 

0000 


LDR 

$R3 * $ IV *0 

GET CHANNEL NoMB 

003644 

1023 

b570 

FCOO 


AND 

$R3 * =Z•FCOO• 

STRIP 10 MLCP ADDRESS 

003643 

102 7 

6900 

14C3 


CMR 

$R3 * <MLCADD 


003646 

1029 

0905 



6E 

>IHDU5 

6RANCH IF GOOu 

003647 

102 A 

6E70 

0080 


LEV 

=X•0080• 

QUICK CHANGE TO LEVEL 0 

003646 

102C 

F 380 

125C 


LNJ 

$67 * <ERROR 

MLCP GAVE CP WRONG ADDRESS AFTER INTERRUPT 

003649 

1021 

6878 

0000 

IHDQ5 

LDR 

$R3,$IV.G 


003630 

1030 

6570 

03C0 


AND 

$R3*=X»3C0» 

STRIP IU CHANNEL INFO 

003631 

1032 

6F54 



SIR 

$R3 * = $K4 


003632 

1033 

3046 



SOR 

$K3 *6 

GETS SU6CHAN IN R3 

003653 

1034 

8960 

2680 


CMZ 

<INMB» $K3 

COMPARt NUMBER 0F<INTERRUPTS 

003654 

1036 

0985 



6NE 

>IHDQ1 


003655 

1037 

8E70 

0060 


LEV 

= X * 0080• 

SWITCH TU LEVtL 0 

003656 

1039 

F 380 

125C 


LNJ 

$67,<ERROR 

TOO MANY INTEkRUPTS ON THIS CHANNEL 

003657 




* 




003656 

1030 

0801 

0005 

IHUQ1 

bAL 

I HDu2 

branch if neg 

003659 

1030 

6E70 

0080 


LEV 

sX•0080 * 

SWITCH TU LEVlL 0 

003660 

103F 

F 380 

125C 


LNJ 

$67 * <ERKOK 

ERROR, UNEXPECTED INTERRUPT 

003661 

1041 

9930 

26A0 

IHDQ2 

CMR 

$R1 * <ILV•$K3 

COMPARt LEVELu 

00366*: 

1043 

0905 



BE 

>IHUU3 


003663 

1044 

6E70 

0080 


LEV 

= X • 0080 • 

SWITCH TO LEVcL 0 

003664 

1046 

F 380 

125C 


LNJ 

$B7,<EKRQR 

WRONG CHANNEL INTERRUPTED THIS LEVEL 

003665 

1048 

8980 

14D1 

IHDQ3 

CMZ 

<SCF LG 

CHECK SCAN FLmG 

003666 

104A 

098E 



bNE 

>IHDQ4 

IF SET* NO VAlID CCB STATUS 

003667 

1040 

C600 

1 55F 


XUR 

$R4 * <CONT4 

FORMS STATUS 

0u3b6b 

1040 

6052 



1U 

= $R2 t s$R4 

READ NtXI STATUS 


104E 

0054 






003669 

104F 

OF 01 

FFF8 


NUP 

I HDu3 

DELAY 

003670 

1051 

A930 

2690 


CMR 

$K2 *<1 ST•$R3 


003671 

1053 

0905 



BE 

>IHDU4 


003672 

1054 

6E70 

0080 


LEV 

= X•0080 • 

SWITCH TU LEVtL 0 

003673 

1056 

F 380 

125C 


LNJ 

$67 * <tKKUR 

STATUS ERROR AFTER INTERRUPT 

003674 

1058 

8E70 

8004 

1HDU4 

LEV 

= Z • 8004• 

SUSPEND* SCAN, AND DISPAICH LEV 4 

003675 

105A 

OF 81 

FFC5 


6 

IHD1 


003676 




ft**#*#********###*# 


003677 




* 




003676 




* INTERRUPT MONlTuR ROUTINE - 

LEVEL 4 

003679 




* 




003680 




******************* 


003681 

105C 

DC8Q 

OF 17 

IMQN 

LDB 

$65 *<STKPTR 

GET PRIORITY oTACK pOlNTtR 

003682 

105E 

0080 

OF 16 


CMB 

$65 * <PRI END 

CHECK IF AT EnD 

003683 

1060 

0284 



6GE 

>IMUN2 

STACK IS FULL 

003684 




* 




003885 

1061 

bF 75 



STR 

$R3* + $65 

STOKE CHANNEL ON SjACK 

003686 

1062 

OF 80 

OF 17 


STb 

$65,<STKPTR 

STORE NEW STACK POINTER 

003687 




* 




003686 

1064 

8 AbO 

2680 

1MUN2 

INC 

<1NMb.$R3 

INCKEMtN1 INTlRRUPj COUNT 

003689 




* 




003690 

1066 

8E70 

80 3 F 

IM0N4 

LEV 

=2’603F• 

SCHEDULE LEV o3 AND SuSPtND 

003891 

1068 

OFF 4 



6 

> IMuN 

PICK UP NEXT TIME FROM HtRt 

003692 




* 




003693 




* BLOCK WRITt 

DMA TO RAM 


003694 




* 




003695 




* 

LNJ 

$611<SDAT A 


003696 




* 

DC 

DATA 

LOCATION OF DaTA 

003697 




* 

DC 

RANGE 

number of data bytes 

003696 




* 

DC 

KAMAD 

RAM ADDRtSS 

003699 




* 

DC 

EVEN 

0 = EVEN BYTE CPU ADDRESS 

003900 




* 



bll 15 = i FOR ODD BYTE START 

003901 




* 



611 U s 0 FOR 25 MS DtLAY btFORE RETURN 

003902 




* 



BIT U = l FOR 250 MS DELAY btFORE RETUKl 

003903 




* 




003904 




* R3 MUST CONTAIN THE CHANNEL 

NUMBER 

003905 




* 




003906 

1069 

6F40 

0480 

SDAT A 

SAVE 

SAV2*sZ* FFBF• 

SAVE ALL BUT bl 


106b 

FFBF 






003907 

106C 

DCF1 



LD6 

$65 * + $Bi 

GET ADDRESS OF DATA 

003906 

1060 

C871 



LDR 

$R4,+$B1 

GET KANGt 

003909 

1U6E 

OF80 

1079 


STB 

$63,<SPRG5 


003910 

1070 

A871 



LDR 

$R2 * +$B1 

GET RAM ADDRESS 

003911 

1071 

AFOO 

107A 


STR 

$R2 * <SPKG2 

• 

0039U 

1073 

9871 



LDR 

$R1*+$B1 

LOAD SI ART BY IE INDEX 

003913 

1074 

9F57 



STR 

$R1*=$R7 

STORE BYTE INDEX 

003914 

1075 

9570 

7FFF 


AND 

$Ri*=X»7FFF* 


003915 

1077 

C380 

1189 


LNJ 

$64,<MCCB 

FORM CCB 

003916 

1079 

0000 


SPRG5 

RESV 

$ A F * 0 

CPU ADDRtSS 

00391 7 

107 A 

0000 


SPKG2 

DC 

0 

RAM ADDRESS 

003918 

107b 

C380 

1177 


LNJ 

$64 * <CHCT 

DO CHANNEL CONTROL 

003919 

1070 

OF 62 



6 

>$♦2 


003920 

107E 

0400 



DC 

Z • 0400 • 

BLOCK WRITE 

003921 




* 




003922 




* PROGRAM AR1VES HERE FROM SDATA OR RDATA AS WELL AS SPRG. 

003923 




* 




003924 

107F 

7880 

1086 

SPRG3 

bGEZ 

$R7,<SPRG7 


003925 

1081 

C380 

11C6 


LNJ 

$64*<TEST 

WAIT FUR STATUS COMPLETE 

003926 

1083 

OF 82 



6 

>$♦2 


003927 

1084 

001E 



DC 

30 

250 MS TIMEOUT 

003928 

1085 

0F85 



b 

>SPKG8 


003929 

1066 

C380 

1215 

SPRG7 

LNJ 

$64 * <DLAYLG 

DELAY 25 MS 

003930 

1068 

C380 

1161 


LNJ 

$64 * <INXT 

INPUT NEXT STATUS 

003931 

108A 

8205 


SPRG8 

Lb 

= $K5 , = X*1000 • 

GET STATUS COMPLETE BIT 


108b 

1000 






003932 

loac 

0503 



bbT 

>$+2+$AF 


003933 

1080 

F380 

125C 


LNJ 

$67 * <ERRGR 

STATUS COMPLETE NOj SET AFTER BLOCK WRITE 

003934 

108F 

8203 



Lb 

= $R3»= 7 
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1090 0007 


003935 

1091 

0583 



BBF 

>$+2+$AF 


003936 

1092 

F 380 

125C 


LNJ 

$B7,<LKKOR 

ERROR, PARITY,MLMOr Y ,QR RESOURCES 

003937 

1094 

8F80 

14F7 


KSTR 

<SAV2 * = 2•FFBF * 



1096 

FFBF 






003938 

1097 

8381 



JMP 

$bl 


003939 




****** 




003940 




* 




003941 




* BLOCK 

. READ 

FROM RAM.- CHAN. 

NUMBER MUST Bt IN R3. 

003942 




* 




003943 




* 

LNJ 

$Oi*<KDATA 


003944 




* 

DC 

INBUFF 

INPUT BUFFER ADDRESS 

003945 




* 

DC 

range 

NUMBER OF bYTtS 

003946 




* 

DC 

KAMAD 

RAM ADDRESS 

003947 




* 

DC 

EVEN 

0 = EVEN BYTE CPU ADDRESS 

003948 




* 



BH .15 5 15 FOR ODD BYTt ADDRESS 

003949 




* 



BI! 0 s 1 FOR 250 MS DELAY AFTER 

003950 




* 



BIT U ; 0 FOR 25 MS DELAY AFTER 

003951 




* 




003952 

1098 

8F40 

045E 

RDATA 

GAVE 

SAV2 , ~2 •FFBF 9 

SAVE EVERYTHING BUT Bl* 


109 A 

FFBF 






003953 

109U 

DCF 1 



LDB 

$B5,+$61 

GET IN BUFF ADD 

003954 

1U9C 

DF80 

10A8 


STB 

$B5 , <KDTA1 



00395b 

00395b 

003957 

003953 

003959 

003960 

003961 

003962 


C871 

9671 

9FQ0 10A9 
9871 
9 F 5 7 

9570 7FFF 
C380 1189 
14C7 


003998 

003999 

004U00 

004001 

004004 

004003 

00400^ 

004O03 
004006 
004007 
004008 
004009 
004010 
004011 
004014 
004013 
004014 


8753 

9830 26A0 
190A 

C800 1565 
C3C0 00A2 
8051 
0054 
0703 

F360 125C 


004032 

004U33 

004034 

004035 

004036 

004037 

004038 

004039 

004040 


$R4 , *• $b 1 
$R1,+$Bl 
$R1,<KDTA2 
$R1, + $Bl 
$kl,=$K7 
$R1 , = X* 7FFF* 
$B4,<MCCB 
< DUMMY 


GET RANGE IN oYTES 


PICK. UP EVEN, ODD FLAG 
STORE BYTE IhDLX 


FORM CCB 
CPU ADDRtSS 


003963 

10A9 

0000 


RDTA2 

DC 

0 

RAM ADORLSS 

003964 

10AA 

C360 

1177 


LNJ 

$04,<CHCT 

DO CHANNEL CONTROL 

003965 

10AC 

0F82 



0 

>$’♦•2 


003966 

1OAD 

0800 



DC 

2 • ObOO • 

BLOCK READ 

003967 




* 




00396b 

10AE 

0F81 

FFDO 


B 

SPRG3 

EXIT 

003969 




* 




003970 




* TURN 

ON ALE 

channels to be test tu 

003971 




* 




003972 




* 

LNJ $03 

,<TRNQN 


003973 




* 

DC CUNT 

CHAN CONTROL «vORD 


003974 




* 

DC XX 1 

= XMIT ONLY, 2= REC. 

ONLY, 0= BOTH 

003975 




* 




003976 

10B0 

8F40 

0436 

TRNGN 

SAVE 

SAV1 , = 2 •1FOO 1 

R3,4,5*6 


1002 

1F00 






003977 

10B3 

D873 



LDR 

$R5,+$BJ 

GET CHANNEL CONTROL WORD 

003978 

10b4 

E873 



LDR 

$R6, ♦ $B3 

GET TYPE FLAG 

003979 

1005 

3C10 



LDV 

$ K 3 , = 16 

K3 GETS CHANNtL NUMBERS 

003980 

10bb 

3705 


1TM11 

ODEC 

$R3 »>T ALL 

BRANCH IF NOT DONE 

003981 

1007 

8FC0 

042 F 


RSTR 

SAV1,=2•1F 00 * 



1009 

1FOO 






003982 

1QBA 

8383 



JMP 

$03 

ALL DONE* EXIT 

003983 




* 




003984 

lObO 

C800 

1562 

TALL 

LDR 

$R4 , <CONT 7 


003985 

10BD 

8900 

26A0 


CM2 

<ILV.$R3 

CHECK IF LEVEL SET UP 

003986 

10BF 

0977 



BE 

> 1 T Ft 11 

BRANCH IF NOT SET UP 

003987 

10C0 

6904 



btl 

$R6,>1TM11A 

CHECK IYPE OF XFLK 

003988 

10C1 

F856 



LDR 

$k f, = $R6 


003989 

10C2 

F 653 



XUR 

$R I » = $R3 


003990 

(W) 2 001 

10C3 

7 OF 3 


£ 

0 ODD 

$R/»>ITM11 

BRANCH IF NOT RIGHj TYPE 

uu Jyy i 

003992 

10C4 

C380 

1173 

ITMUA 

LNJ 

$04,<CGSCH 

FORM 10 CONTRuL WORD 

003993 

lOCb 

8055 


ITM12 

IQ 

=$R5,=$K4 

start 10 


IOC 7 

0054 






003994 

10C8 

07FE 



biOF 

>IT M12 

WAIT 

003995 

10C9 

OFED 



0 

> IT Ml 1 

DO NEXT 

00399b 




* 




003997 




* StT 

LEvEL «► 

CHANNEL FOR AJL ACTIVE CHANNELS 


SET V CL = $R3 

SETV2 LDR $Kl,<llV.$R3 GET LtVEL 

bL2 $Rl»>SETVl 

LDR $R4,<CQNTU GET FUNCI ION CODE 

LNJ $B4,CGSCH OR IN CHANNEL 

10 =$K1,=$R4 

biOT >$*2+$AF 

LNJ $B 7 TERROR COMMAND NEVER SHOUl 

x 

SETVI INC =$R3 

CMV $K3»=16 

ONE >SETV2 

JMP $b3 

* 

* SET UP INTERRUPT VECTORS FOR ENTRIES IN LEVEL TABLE 

* 


GET LEVEL 

GET FUNCI10N CODE 
OR IN CHANNEL 


COMMAND never should be naked 


004015 

lODb 

8752 


SETVLC 

CL 

= $K2 


004016 

10DC 

DB80 

25AB 


LAB 

$b5 ,< ISl-f $AF 

GET 1SI ISA SAVE PoiNTEk 

004017V 

10DE 

OF 04 


SET 1 

NOP 

>$♦4 

004018 

1ODF 

0BC5 

OOOC 


LAB 

$B3»$B5.9+3*$AF 

FORM ADDRESS oF NEXT ISA 

004019 

lOti 

9820 

26A0 

SAF4 

LDR 

$Ri,<1LV.SH2 

GET LEVEL 

004020 

10L3 

89D1 


SAF5 

CM2 

-$R i 


004021 

10L4 

0903 



BL 

>SLT2 

BRANCH IF NO lEVLL SET FUR CHANNEL 

004022 

10L5 

DF 90 

0000 

X 

STB 

$85,<2HISA2.$R1 

STORE VECTOR 

004023 

10L7 

8AD2 


SET2 

INC 

= $R2 

SET FOR NEXT CHANNEL 

004024 

10E8 

BFD5 



STB 

$B3,=$05 

004U25 

10L9 

2D11 



CMV 

$R2,=17 

CHECK FOR END 

004026 

1 OLA 

0274 



bL 

>SL 1 1 

MORE 

004027 

004028 

1 OLb 

8384 


* 

JMP 

$04 

EXIT 

004029 




* 




004030 




* 


FIND FIRST ACTIVE 

CHANNEL 

004031 




* 





SR3-START CHECC UN THIS CHANNEL AND 
CYCLE THROUGH ALL CHANNEL IF 
UNE FOUND ON CHANNEL NUMBER IS HERE 

LNJ $B4,<FLN 

<RE1URN> IF NO LINES ON 

<RE7 UKN> 
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41 


004041 

1 OEC 

8 F 40 

03 FA 

FLN 

SAVE 

SAVi* =Z * AOAO * 

SAVE REG. $R4,$d4 


10 EE 

AO AO 






004U44 

1 oef 

4CFF 



LDV 

$R4*=-1 


004043 

1 OFO 

Ab 8 Q 

14AD 


LAB 

$B4 *<A TLT 

ADDRESS UF ACTlVt LINE TABLE 

004d44 

10F4 

3D10 


FLN4 

CMV 

$R3 * = 16 

SEE IF Al BOTTOM OF TABLt 

004048 

10F3 

0485 



BGE 

>FLN3 


004U46 

10F4 

A97E 



CMR 

$R4*$B4.*$R3 

SEE IF INDEX SCH. ON 

004047 

1 OF 5 

097D 



bE 

>FLN2 


00404b 

1 OF 6 

88D3 



DEC 

= $R3 

SET $R3 BACK TO VA L ue FOUND 

004049 

10 F 7 

A874 



LDR 

$R4 * + $B4 

INCREMENT TO VALID RETURN 

004050 

lOFa 

8 F CO 

03EE 

FLN3 

RSTR 

SAV1 * =Z •AOAO• 

RESTORE KEG. 


10F A 

AO AO 






004081 

IOFd 

8384 



JMP 

$B4 

jump out of routine 

004054 




* 




004U53 




* general initialise for MLCC 


004054 




* 




004055 

1 OF C 

8F40 

04 1 A 

GENIT4 

SAVE 

SAV3*s4«1808* 

SAVE b4,K4 


10 F t 

1808 






004o5o 

10 FF 

8753 



CL 

= $R3 


004057 

1100 

C380 

10EC 


LuJ 

$B4♦<FLN 

FIND ACTIVE LINE 

004056 

1104 

0000 



hlt 


NO ACTIVE LINlS r rA , , 

004059 

1103 

C800 

1563 


LDR 

$R4 * <CQNT 9 

GET FUNCIION lODE FOR INITIALIZE 

004060 

1105 

C380 

1173 


LNJ 

$B4«<CGSCH 

MODIFY FUR CHANNEL 

004061 

1107 

8070 

8000 


ID 

= Z 1 8000•* = $R4 

INITIALIZE 


1109 

0054 






004064 

1 1 0 A 

0703 



BIOT 

>$+2+$AF 


004063 

1100 

F 380 

125C 


LNJ 

$B7 $ <ERROR 

INITIALIZE WAs NAK•ED 

004U64 

HOD 

C380 

1415 


LNJ 

*B4,<DLAYLG 

WAIT 600 MS 

004065 

11 OF 

8 F CO 

0407 


RSTR 

SAV3 * 5=4 • 1808 • 



1111 

1808 






004066 

1114 

8384 



JMP 

$B4 

RETURN 


0 0 4 U 6 7 
00406b 
004U69 
004070 
004071 
004U74 
004073 
004074 
004u75 
00407b 
004077 
004U7 6 
004079 
004080 
004081 
004084 
004U83 
004O84 
00408!? 
004086 
00408 1 
004088 
004089 
004090 
004091 
004094 
004098 
004094 
004098 
004096 
004097 
004098 
004099 
004100 
004101 
004104 
004108 
004104 
004108 
004106 
004107 
004108 
004x09 


PSEUDO - RANDOM DATA GENERATION RGUTINt 
DATA 18 BASED ON CRC GENERATOR 

4 MODES OF OPERATION. 

* INPUT - TAKES INITIAL CHAR AS BASE AND FORMS 

TABLE OF DATA BASED ON CRC SPtCIFItD. 

OUTPUT - TAKES TABLE OF DATA AND FuRMS ACCUMULATED CRC, 
E ONLY FOR CRC16 AND CC1TT. 

TO USE* MUST SET; 

R 6 - NUMBER OF BITS IN CHAR. 

R7 - RANGE IN BYTES 

d3 - TABLt ADDRESS 

B 6 - ADDRESS OF CRC TYPE. 


FOR INPUT St I? 

R5 - INITIAL 
FOR OUTPUT SET; 


TO GIVE 10 CRC oEN. 


RS - MUST BE SET NEGATIVE. 
CRC CHECK AND FILL ROUTINE 


$04 * <CRC 


004111 




* 

THE 

ACCUMULATED CRC IS 

004114 




* 



004113 




# 



004114 

1113 

8 F 40 

0413 

CRC 

SAVE 

SAV4 * =Z * F994• 


1115 

F 994 





004 X 1 5 

1116 

Cb06 



LDR 

$R4 9 $B 6 

004116 

11 W 

8751 



CL 

= $R 1 

004117 

1118 

6700 

14CE 


CL 

< TEMP 

004X16 

1 1 1 A 

8700 

14CF 


CL 

<TEMPI 

004119 

me 

8753 



CL 

= $R3 

004120 

HID 

6752 



CL 

= $R4 

004121 

11 IE 

8456 



NEG 

= $R 6 

004124 

11 IF 

tFOO 

14DA 


STR 

$R 6 *<IMGA+($AF-1) 

004123 

1141 

5885 



BGEZ 

$R5*>CKCAA1 

004144 

1124 

DOFF 



LDH 

$R5*$B3.*$R3 

004125 

1143 

8 A60 

14CE 


INC 

<TEmP 

004126 

1125 

7001 



SUL 

$R7 * 1 

004127 

1146 

6457 


CRCAA1 

NEG 

= $R7 

004126 

1147 

69D4 


CRCAA 

CMZ 

~$R4 

004149 

1126 

0901 

0035 


BE 

CRCF 

004130 

114 A 

C970 

F010 


CMR 

$R4,=Z*F010* 

00413i 

114C 

091A 



BE 

>CRCD 

004134 

114D 

DF 5 1 


CRCA 

STR 

$R5 * c$R1 

004i33 

114E 

5041 



SOR 

$R5 * 1 

004134 

114 F 

9652 



XOR 

$Ri*=$R2 

004135 

1130 

2041 



SUR 

$R2 * I 

004136 

1131 

1B02 



BEVN 

$RI*>CKC 6 

004137 

1134 

A654 



XOR 

$R4*=$R4 

004136 

1133 

67FA 


CRCB 

BINC 

$R 6 *>CRCA 

004139 

1134 

89C0 

0399 


CMZ 

TEMP 

004140 

1136 

096E 



BNE 

>CRCUD 

004141 

1137 

D852 



LDR 

$R5*=$R2 

004144 

1136 

5046 



SOR 

$R5 » 8 

004143 

1139 

88D5 



DEC 

= $R5 

004144 

113A 

AF73 


CRCC 

STR 

$R2 *♦$B3 

004145 

113b 

E800 

14DA 

CRCC2 

LDR 

$R 6 *<IMGA+($AF-I) 

004146 

113D 

77EA 



BINC 

$K7 * >CRCAA 

004147 

113E 

AF 00 

14D3 


STR 

$R2 * <CRCAC 


$03 - ADDRESS WHERE CRC ACCUMULATOR IS STORED 
UR CHARACTER IS LOADED IF $R5<0 
$06 - ADDRESS OF CRC TYPE 

$R5 - IF > = 0 CONTAINS INITIAL CHARACTER FOR FILLING TABLE 
IF <0 NOT USED EXCEPT AS A FLAG FOR OUTPUT 
$R 6 - CONTAINS NUMBER OF BITS IN CHARACTER 
$R7 - 1 HE NUMdER OF CRC TO BE 

GENERATED INTO/FROM THE TAbLE Al $B3 


PUT CRC IYPE INTO $R4 


CLEAR 3>K3 FOR LONG SHIFT 


STORE COUNTER 

SEE IF OUTPUT OR INPUT 


IF LRC 8 

BRANCH TO CRCF 
IF CRU2 
BRANCH TO CRCu 


STORE CRC ACCOM. In TABLt 
RESET CHAR* COUNT 
DO NEW CHARACTER 
STORE LAST CRC ACCUMULATED 
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004149 

004150 

004151 

004152 

004153 

004154 

004155 

004156 

004157 

004156 

004159 

004160 

004161 
004162 
004163 
004164 
004165 
004166 
004167 
004166 
004169 
004170 
004171 
004172 
004173 
004174 
004175 
004176 
004177 
004176 
004179 
004i80 
004181 
004182 
004183 
004184 
004185 

004186 

004187 

004186 

004189 

004190 

004191 

004192 

004193 

004194 

004195 

004196 

004197 

004196 

004199 

004200 

004201 

004202 

004203 

004204 

004205 

004206 

004207 

004206 

004209 

004210 

004211 

004212 

004213 

004214 

004215 

004216 

004217 

004216 

004*19 

004220 

004221 

004222 

004223 

004224 
0042 25 
004226 
004227 

00422o 

004229 

004*30 

004231 

004232 

004233 

004234 

004*35 

004236 

004237 

004236 

004*39 

004*4u 

004*41 

004242 

004243 

004*44 

004245 

004246 

004*47 

004246 

004*49 

004*50 

004*51 


1140 

8FC0 03E6 


RSTR 

SAV4.sZ*F994« 

1142 

F 994 




1143 

8384 

£ 

JMP 

$B4 

1144 

DOFF 

CRCDD 

LDH 

$R5 »$b3•♦$R3 

1145 

0FF6 


8 

>CRCC2 

1146 

5004 

CRCD 

SOL 

$R5.4 

1147 

DF5 1 


SIR 

$R5.=$Ri 

1146 

5045 


SOR 

$R5.5 

1149 

9652 


XOR 

SRI.=$R2 

114A 

2045 


SOR 

SK2.5 

1148 

2004 


SOL 

$R2.4 

114C 

82D1 


Lb 

=$RI.-X•10* 

1141) 

0010 




U4E 

0582 


bbF 

>CKCE 

U4F 

A654 


XUR 

$K2.-$R4 

1150 

67F6 

CRCE 

bINC 

$R6. >CKCD 

1151 

30CA 


DOR 

SR3.10 

1152 

3042 


SUR 

$R3.2 

1153 

2002 


SUL 

$K2.2 

1154 

3088 


DUL 

$R3»8 

1155 

AF73 


STR 

$K2.♦Sb3 

1156 

D852 


LDR 

$K5.=$R2 

1157 

30C8 


DUR 

$R3.8 

1158 

300* 


SUL 

$R3»2 

1159 

2042 


SOR 

SR2.2 

U5A 

30BA 


DUL 

$R3,10 

1158 

5048 


SUR 

$R 5.8 

115C 

88D5 


DEC 

= $R5 

115D 

OFDE 

4k 

b 

>CRCC2 

115c 

A655 

CRCF 

XUR 

$R2»=$R5 

115F 

8AD5 


INC 

= $K5 

1160 

OFDA 


b 

>CRCC 


KESTORt KEGS. 


FORM GtNERATEo CRC 
ACCUMULATOR 


8F0Q 1535 
0008 

C80Q 155F 
C360 1173 
8055 
0054 
0703 

F 360 125C 
OF00 1540 
8F80 1535 


* INPUT NEXT 

# 

INXT SAVE 


STATUS TO K5 

<SAy6 *=£•0008 * 

$R4 * <CUNT4 
$84 * <CGSCH 
=$R5.=$K4 

>$+2+$AF 
$87*<EKKUR 
$R5 * <ST AT 
<SAV6,5*»0008« 


CHANGE CHANNEL 


SS5i*?"IMR8 e E 0R lNPUT NtxT 5TATU * 

GET NEXT STATUS 


INPUT NEXT STATUS u/AS NAMED 
STOKE LAST STaTUS ReAD 


$R3 -CONTAINS CHANNEL WANTEP 

$K4 -CONTAINS 1/0 CONTROL WORD TO bt CHANGlD 


1173 3006 

1174 C453 

1175 3046 

1176 6364 


CGSCH SUL 
OR 
SOR 
JMP 


* OUTPUT CHANNEL CONTROL 


$84 » <CGSCH 


$R3.6 
$R4,^$R3 
$R3.6 
$84 


shift 10 channel POSITION 
OR CHANNEL NUMBER INTO CUNTRULWOKp 
SHIFT 10 NORMAL POSITION 
GO 6ACR 


LNJ $b4*CHCT 
8 >$ + 2 
DC XX 


RETURN 

XX s CHANNEL CONTROL 


6F00 I4E7 
OCOD 
D874 
0674 

C800 1562 
C360 1173 
8055 
0054 
0703 

F 380 125C 

8F80 14E7 

OCOD 

6384 


SAVE <SAvl•=Z , OCOD» 

LOR $R5.+$b4 

LOR $R5.+$B4 

LOR $R4,<C0NT7 

LNJ $84,<CGSCH 

10 =$R5t=$R4 

blOT >CH* 

LNJ $87 *<EKROK 

RSI R <5AvU = Z*0C00» 


R4.R5,b5*b7.b* 

DUMMY 

GET CONTROL WgRD 
FUN CODE FOR CCB CONTROL 
FORM IU CONTROL WORD 
OUTPUT CC8 CONTROL 


tRROR. 10 WAS NAMED 


CCb FORMATION 

$RI - CONTAINS INDEX OF CPU ADDRESS 

$R3 - CONTAINS CHANNEL WANTED 

$K4 - CONTAINS RANGE (NUMBER OF BYTES) 

LNJ $84.<MCC8 

DC CPU ADDRESS 

DC RAM ADDRESS NUMBER OK CHANNEL CONTROL WORO. 


8F40 035D 

FDF4 

ACF4 

A874 

DED4 

D854 

C800 I55C 
C380 1173 
8192 


SAVE SAV1.s* 1 F DF 4 » 

LD8 $82.•*•$84 

LDR $R2.+$84 

Swb $85.=$84 

LDR $K5.=$R4 

LDR $R4 * <CQNT1 

LNJ $84.<CGSCH 

IOLD $82.$R1,=$R4.5$K5 


SAVES $8l*$b3.$82*$B5.$R7.$K5.$K4.R2.6 $R1 

LOAD $82 WITH CPU ADDRESS 

PUT RAM ADDRESS IN $R2 

ALLOW $84 JO oE USE IN SU8R. CALL 

LOAD $K4 WITH I/O CONTROL WORD 

OUTPUT ADDRESS AND RANOe 
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1195 

0054 









1196 

0055 








004*52 

1197 

0703 




OIUT 

>$+2+$AF 



£**-■ 004c 53 

1198 

F 380 

125C 



LNJ 

$B7*<ERR0R 


IOLD WAS NAK’lO 

8 004254 

119m 

C800 

1550 



LOR 

$K4 * <CONT 3 


LOAD $K4 WITH I/O CONTROL WORD 

8 004*55 

119C 

080 

1173 



LNJ 

$B4*< CGSCH 


PUT I/U CUNTRuL WORD IN *K4 

0 0 4 * 5 6 

119L 

8052 




1U 

=$K2*=$k4 


OUTPUT MLCC RmM ADDRESS 


119F 

0054 








004257 

11 AO 

0703 




01UT 

>$+2+SAF 



004256 

ilAi 

F 380 

125C 



LNJ 

$b 7♦<ERKUK 


OUTPUT CUNTROl flag WAS NAK'ED 

004c 59 

11 A3 

C005 




Swb 

$B4,=$B5 


SWAP FUR SUBR* RETURN 

004260 

11A4 

8FC0 

0342 



RSI R 

SAV 1 * =Z *F0F4 * 


KESTORt KEGS. 


ilAb 

F0F4 








004c 6i 

11A 7 

8384 




JMP 

$B4 



004 c 62 





# 





004263 





* INPUT LCT BYTE 



004264 





# 





004265 

11A8 

0004 



1N0YT0 

SWB 

$B5♦=$04 



004c6t> 

11A9 

C800 

1564 



LOR 

$R4,<C0NT10 


GET FUNCIION lOOE 

004267 

11 Ati 

C380 

1173 



LNJ 

$B4*<CGSCH 


PUT IN CHANNEL NUMBER 

004266 

UAO 

8055 




10 

= $R5 * = $R4 


INPUT 


H AE 

0054 








004269 

UAF 

0703 




blOl 

> $ + 2 + $AF 



004270 

HOO 

F380 

125C 



LNJ 

$b7 *<ORROR 


10 WAS NAK * EO 

004c71 

11B2 

0570 

F FOO 



AND 

$K5 * = 2 * FFOO * 



004272 

1164 

0004 




Swb 

$05 *= $04 



004273 

1105 

8384 




JMP 

$04 



004274 





* 





004273 





* 





00427c 





* 





004277 





* 

PACK 

RAM INSTRUCTIONS 


004278 





* 





004279 





* 





004280 





* 

$R5 - 

RANGE IN WORDS 

OF BUFFER WHORL PACKED iNSTRUCUQNS GO. 

004281 





* 





004282 





* 

LNJ 

$04 * <PKRIN 



004283 





A 

DC 

ADDRESS OF 

UNPACKED INSIKUCTIOi* 

004284 





* 

DC 

AOORtSS OF 

PACKED INbTRUC1 IONS 

004285 





* 





00428o 





* 





004287 

1106 

8F40 

0330 


PKRIN 

SAVE 

SAV1 * sZ * CCOO * 


SAVE $Kl*$R4*$R5*$B3*$Bi 


1108 

CCOO 








004288 

1109 

8255 




NEC 

= $R5 



004289 

1IbA 

0CF4 




LOO 

$03 y + $04 


LOAD $03 WITH ADDReSSS OF UNPACKED 1NSTS. 

004290 

1100 

9CF 4 




LOO 

$01*+$04 


LOAD $b4 WITH ADDRESS OF PACKED INSTS. 

004291 

11 oC 

C873 



PKR1 

LOR 

$R4 * +$03 


GET FIRSl UNPACKED INST. IN $R4 

004292 

llou 

4008 




SUL 

$R4 * b 


SHIFT 10 LEFT HALF OF WORD 

004293 

llbL 

9873 




LOR 

$R1*+$03 


LOAD NLXI WORo 

U04294 

11 OF 

9570 

GOFF 



AND 

$K1*=X*FF* 


STRIP 10 8 BITS 

004295 

1101 

C651 




XOR 

$R4,=$R1 


PUT WOKD T0GE1HER 

004296 

UC2 

CF'71 




SIR 

$R4,+$01 


STORE WORD IN THE RACKED LOCATION 

00429/ 

11C3 

57F9 




b INC 

$R5*>PKR1 


BRANCH TO PACK ALL WORDS 

004296 

11C4 

8FC0 

0322 



RSTR 

SAVi*=Z»CCOO» 


RESTORE KEGS. 


11 Co 

CCOO 








004299 

11C 7 

8384 




JMP 

$04 



004300 





# 





I 004301 





* WAIT 

FUR STATUS COMPLETE 



| 004302 





* LNJ $04* 

< T 0 S T 



" 004303 





* b 

$♦2 

roturn 



00430* 





* DC 

AA 

1IMtOUT IN 120TH*S 

SEC. 

004303 





Ik 





00430b 





* 





004307 

11C8 

8F00 

1407 


TOOT 

SAVE 

<SAV1 * =Z•4909 * 


K1 * 4,7 *04 * 7 


11CA 

4909 








00430b 

1 lCb 

0080 

0000 

X 


LAO 

$05,<ZHPFR 


CLEAR 05 

004309 

1 ICO 

8 751 




CL 

= $R 1 



004310 

net 

9F00 

0000 

A 


STR 

$R1*<ZHRTC1 


ZERO OUT RTC kESET VALUE 

004311 

11 DO 

1C02 




LOV 

$R1 * = 2 



004312 

1101 

9F00 

0000 

A 


STR 

$R1 * <ZHR T CL 


SET FOR KUPT LEVEL 1 

0Q4313 

1103 

9874 




LOR 

$K1 * + $B4 


DUMMY IQ INCREMENT B4 

004314 

1104 

9874 




LOR 

$K1*+$B4 


PICK UP 1IMEOUT VALUE 

004315 

1105 

9F00 

0000 

X 


STR 

$R1,<ZHRTCC 


SET REAL TIME CLOCK 

004316 

1107 

9F0U 

1540 



STR 

$R1*<1NTM 



004317 

1109 

0004 




RTCN 




004318 

11 DA 

C380 

1161 



LNJ 

$04,<INXT 


INPUT NEXT STATUS 

004319 

HOC 

8205 



TESTZ 

Lb 

=$R5*=Z*1000* 


TEST FOR STATUS COMPLETE 


1100 

1000 








004320 

not 

050F 




bOT 

>T0SVZ1 


BRANCH IF COMPLETE 

004321 

HOF 

8980 

0000 

A 


C HZ 

<ZHKTCC 


TEST R1C 

004322 

1101 

OFO1 

FFFF 



NOP 

$ 


**#**#*#*## 

004323 





* 





004324 

nu 

ceoo 

1561 



LDK 

$R4*<C0NT6 


FUNCTION code 

004325 

1105 

C380 

1173 



LNJ 

$04 * <CGSCH 



004326 

11E7 

8055 




10 

=$R5*=$R4 


1NPPT STATUS 


1108 

0054 








004327 

1109 

0773 




BIOT 

>TOSTZ 


BRANCH MtANS TRY A G AIN 

004326 

llOA 

F 380 

125C 



LNJ 

$07 *<ORROR 


INPUT STATUS wAS Nak*ED 

004329 

110C 

0000 




HLT 




004330 

1100 

0005 



TOST Z 1 

RTCF 



TURN NIC OFF 

004331 

1100 

9800 

1540 



LOR 

$R1* <INTM 


GET INITIAL TIME 

004332 

11F0 

9200 

0000 

A 


SUb 

$R1 * <ZHRTCC 


GET ELAPSED 

004333 

11F2 

C380 

HF8 



LNJ 

$04,<UPTM 


UPDATE TIME 

004334 





* 





004335 

11F4 

8F80 

1407 



RSTR 

<SAV1 * = Z’4909 * 




11F6 

4909 








004336 

11F7 

8384 




JMP 

$04 


EXIT 

004337 





* 





004338 





* 





004339 

11F8 

9A00 

154A 


UPTM 

ADD 

$K1*<T TOT 


ADD ELAPSED To TAL 

004340 

UFA 

9F00 

154A 



STR 

$R1 * < T TOT 



004341 

liFC 

1041 




SOR 

$R 1 * 1 


DEVIDE TICKS oY 2 

004342 

11FO 

9970 

003C 



CMR 

$K1*-60 



004343 

1 IF F 

0205 




OL 

>UP1 Ml 



004344 

1200 

8700 

154A 



CL 

<T TUT 


CLEAR TOTAL 

004345 

1202 

8A80 

1549 



INC 

<SOC 


BUMP SECONDS lOUNTeR 

004346 

1204 

8384 



UPTM1 

JMP 

$04 



004347 





* 





004348 





* TIME 

DELAY 

OF 25 MSEC (APPROX) 


I 004349 





* 





ft 004350 





* LNJ $04* <DLAY 



004351 





# 





004352 

1205 

8 FOO 

1407 


OLAY 

SAVE 

<SAV1 * =Z•C08C * 




1207 

CE8C 
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004353 

120b 

9800 

154E 



LPR 

SRl»<HRT* 

GET FREQ 

004354 

120A 

1044 




SOR 

SR 1.4 

SET FOR CLOCK/16 

004355 

l*0o 

0F90 




b 

>PLAY2 


004356 





# 




004357 





* LONG 

PLLAY 

(APPROX 225 MS) 


004350 





# 




004359 





# 




004360 

120C 

8F40 

02DA 


OLAYLI 

SAVE 

SAVi»s**CE8C» 



120L 

CE8C 







004361 

1*0P 

9800 

154E 



LPR 

$Rl.<HRTZ 


00436* 

1*11 

104* 




SOR 

SRi *2 


004363 

121* 

1F03 




ML V 

$R 1 * = 3 


00436** 

1213 

0F81 

0007 



b 

PLAY* 


004365 

1215 

8F40 

02D1 


OLAYLG 

SAVE 

SAV1 * =2•CE8C 9 



1217 

CE8C 







004366 

1218 

9800 

154E 



LPR 

SRI. <HRT2 

GET CLUCK 

004367 

121A 

1041 




SOR 

$R 1.1 

GET CLUCK/4 

004360 

121b 

0B80 

0000 

X 

PLAY* 

LAB 

$B5.<ZHPFk 

CLEAR B5 

004369 

1*10 

0F80 

0001 

X 


STB 

SB5 *<ZH1SA*+$AF 

ZERO OUT LEVI INTERRUPT VECTOR 

004370 

12 IF 

9F00 

0000 

X 


STR 

SRI*<*HKTCC 

SET RTC CURRtNT VALUE 

004371 

1221 

C380 

11F8 



LNJ 

$B4. <UPTM 

UPDATE TIME 

00437* 

1*23 

8751 




CL 

= $Ri 


004373 

1224 

9F00 

0000 

X 


STR 

SR 1♦<ZHRTC1 

RTC RE^E1 VALUE 

004374 

1*26 

1C01 




LPV 

$Rl.=l 


004375 

1227 

9F00 

0000 

X 


STR 

SR 1.<ZHRT CL 


004376 

1229 

C800 

1561 



LPR 

$R4 * <CONT6 

INPUT STATUS FUNCTION 

004377 

1 *2b 

C380 

1173 



LNJ 

$B4 * <CGSCH 

PUT IN CHAN NUMBER 

00437b 





* 




004379 

1*20 

1C0A 




LPV 

SRI . = 10 


004380 

l**t 

0004 




RTCN 


TURN ON KTC TIMER 

004381 

122F 

1700 

1236 


PLAY 1 

BPEC 

SRI,<PLAY4 


004382 

1231 

ItOA 




LPV 

$R1»= 10 

RESTORE COUNTER 

004383 

1232 

4E06 




ADV 

SR4. = 6 


004384 





* 




004385 





* GIVE 

input 

LCT BYTE TO TRY TO 

INDUCE INTERFERENCE 

004386 

1233 

8055 




10 

=$K5.=$R4 



1234 

0054 







004387 

1235 

4LFA 




APV 

$K4.=-6 

GET BACK INPUT STAy FC 

004388 

1236 

E800 

1581 


PLAY4 

LPR 

SR6,<tRMG*l 

GET TEST LABLt, 

004389 

1*38 

L970 

5349 



CMR 

SK6,=A*SI* 


004390 

1 2 3 A 

0985 




BNE 

>PLAY 3 

BRANCH MtANS NOT TtST Si 

004391 





* IS SOFT IMT1AL12E TtST• BYPASS STATUS INPUTS. 

00439* 

l*3b 

8AD1 




INC 

= SRi 


004393 

123C 

8980 

0000 

X 


CM* 

< * H K l C C 


004394 

1 * 31 

0F87 




b 

>PLA Y 5 


004395 





* 




004396 

123F 

8980 

0000 

X 

PLAY3 

CM* 

<*HKTCC 


004397 

1241 

8055 




10 

=$R5.=$R4 

INPUT STAT 


1*4* 

0054 







004398 





* HANG 

HERE 

IP MLCC POLS NOT RLSPONP WITH A SECOND HALF REAP 

004399 

1243 

DFOO 

154D 



STR 

SR5.<ST AT 

STORE EAST STATUS REAP 

004**00 

1245 

OAOO 

122F 


PLAY5 

BAG 

<PLAY1 

WAIT TILL DONt. 

004401 

1*47 

0005 




RTCP 


TURN OFF TIMER 

004402 

1*48 

8FC0 

029E 



RbTR 

SAV1. = 2 * CE8C• 



124A 

CE8C 







004403 

124b 

8384 




JMP 

SB4 

RETURN 

004404 





* 




004405 





* St T 

OP RTC AND START IT. 


004406 





* 




00440 7 





* 1 

LNJ So4. <K 1 C 


004408 





* 1 

PC XX 

XX = 120•S OP A SECOND DELAY PLSIRlD 

004409 





* 




004410 

124C 

9874 



PTC 

LPR 

$K1. + SB4 

GET DELAY DESiRED 

004411 

1*40 

9F00 

0000 

X 


STR 

ski.<*hrtci 

STOKE INITIAL VALUE 

00441* 

124F 

9P00 

0000 

X 


STR 

SR 1 . *ZHK T CC 

STORE CURRENT VALUE 

004413 

1*51 

CF80 

14CD 



STb 

$B4 * < T PR 


004414 

1253 

C380 

11P8 



LNJ 

SB4.<UPTM 

UPDATE TIME 

004415 

1255 

CC80 

14CD 



LPb 

SB4.< T PK 


004416 

1*57 

1C03 




LPV 

SRI.=3 

LEVEL 3 

004417 

1258 

9 P 0 0 

0000 

X 


STR 

SRI.<ZHKTCL 

FOR RTC 

004418 

125A 

0004 




RTCN 


TURN ON RTC 

004419 

l*5b 

8384 




JMP 

SB4 

RETURN 

004420 





# 




004421 





* 

LLRROR PRINT ROUTINE 


004422 





* 




004423 





*EtLNJ 

*B7. 

<LRROR 


004424 





* 




004425 

125C 

8p 40 

02DA 


ERROR 

SAVE 

SAV5.=*»PPPP* 

SAVE ALL REGISTERS 


125E 

FFFF 







004426 

125F 

1CP0 




LPV 

$R1. = -16 


004427 

1*60 

8753 




CL 

= $R3 

CLEAR INDEX 

004**28 

1261 

LBC7 

PPFE 



LAb 

SB6»S07«-2*SAF 

DECREMENT SB7 

004429 

1*63 

tP 80 

126A 



STB 

SB6.<LKKl+4+S4P 

STORE ERROR AbDRESS FOR tRRUR CALL 

004430 





LRR1 

CALL 

*V$t.R » S * LRMG 



1*65 

FbCO 

0003 







126 7 

D380 

0000 

X 






1269 

0F80 








126A 

1265 








126b 

1580 







004431 

126C 

EB80 

14C1 



LAB 

SB6.<LRLF 

PUT CK-L INTO CALL 

004432 

1 *6t 

CB80 

14C2 



LAb 

SB4.< SPACE 


004433 

1*70 

AbBO 

128* 



LAb 

SB2 »<ERk3+4+2*SAF 


004440 

127* 

EF82 



ER11 

STb 

SB6.Sb2 


004441 

1273 

8980 

154C 



CM* 

<LRP 

CHECK FLAG FOR SHORT REPORT 

00444* 

1275 

0900 

128D 



bE 

<LKK5 


004443 

127 7 

bBBO 

1537 


tRR2 

LAb 

$B3.< SAV5.$K3 

FECTH ANP STOKE REGISTER 

004444 

1279 

9B80 

1281 



LAb 

Sbl*<ERK3+4+$AF 


004450 

l*7b 

bFbl 



ERK2 1 

STB 

SB3.SBI 


004458 





tRR3 

CALL 

2VSTH2.S.S 



1*70 

FBCO 

0003 







127E 

0380 

0000 

X 






1280 

0F8O 








1*81 

127C 








1*82 

127C 







004463 

1283 

8A03 



ERR34 

INC 

= $R3 

BUMP INDEX 

004464 

1*84 

CF82 




STb 

SB4 «SB2 


004465 

1*85 

3008 




CMV 

SR3.= 7*$AP♦1 

SEE IF CR-LF wEEDEp 

004466 

1*86 

0984 




dnE 

>EKK4 


004467 

1287 

EB80 

14C1 



LAB 

SB6 *<CRLP 


004468 

U89 

EP 82 




STB 

SB6.SB2 

PUT CR-LF INTO CALL 

004469 

128A 

1780 

1277 


LRR4 

blNC 

$R1*<LRR2 

DO NEX f REGISTER 

004470 

128C 

0000 




HLT 


HALT AFTER ERkOR 

004471 

1*80 

8P80 

1537 


LRR5 

NSTR 

<SAV5.=** FFFF 1 

RESTORE REGISTERS 



TITLE DCMCi 

•REV* A * 




PAUL 45 


128F 

FFFF 





004472 

1290 

8387 


JMP 

*67 

RETURN 

004483 



SAFF 

NULL 



004484 



* 




004488 



* 




004486 



ft 




004487 



* 

-VD-VL-VC-VC -vI~VN-v5-VT- 

VR-VU-VC-Vl~Vl“vO-VN -VT”Vb-Vb-VT * 

004488 



* 




00448V 



* 




004490 



# 




00449 l 



* 




004492 



* 

RAM IN6TRUCTION TEST PROGRAM GENERATION 

004493 



* 




004494 



* 

TH15 StCTlON GETS LOADED AT 

HEX 200 

004498 



# 




004496 



# 




004497 



* 

UNO 

X»z00» 


004498 


1291 

1NSTR1 

LOU 

* 


004499 



* 

LUC 

ST 


0O480U 


0200 

ST 

LOU 

x*0z00» 


004801 



* 

b 

bo 

b 6T1 

004804 

1291 

2003 





004805 



* 

WAIT 

UNCONDITIONAL 

BRANCH ERROR 

004506 

1292 

6D31 





00450 1 



* 

LOC 

bT 1 


OO4508 


0205 

bll 

LOU 

X»0*Q5» 


004509 



* 

LD 

= 1 

LD =1 

1)045 10 

1293 

00C6 





0U4513 



* 

C 

= 1 

C =1 

004^14 

1294 

0186 





004517 

1293 

0110 





004518 

1296 

9741 





004519 



* 

bb T 

6T6 

BRANCH IF TRuE 

004520 

129 f 

9641 





004523 

1298 

2703 





004524 



# 

LOC 

BT3 


00*328 


0210 

61 5 

LOU 

X«0210* 


004526 



# 

WAIT 

BRANCH 

ON EQUAL TRUt OR »LD» OR *C* ERROR 

004527 

1299 

6D31 





004528 



* 

LOC 

6T 6 


004529 


0213 

6T 6 

LOU 

X • 02 13 * 


004530 



* 

bLF 

6 Tb 

BRANCH IF FALSE 

004531 

129A 

0096 





004532 

129b 

4126 





004535 



ft 

LOC 

RMOP 


004536 


0217 

RMOP 

LOU 

X' 02 17 * 


004537 



* 

C 

24 

COMPARE WITH LCT 24 (0) 

004538 

129C 

0996 





004341 

1290 

1810 





004542 

129b 

9741 





004543 



ft 

bLF 

BTC 


004544 

129F 

9641 





00454 / 

12 AO 

2603 





004546 



* 

LOC 

BTd 


004549 


0220 

6Tb 

LOU 

X' 0220' 


0U4850 



* 

WAIT 

BRANCH 

ON EQUAL FALbE ERROR 

004551 

12 A1 

bD31 





004552 



* 

LOC 

BTC 


004553 


0223 

6TC 

LOU 

X• 0223 • 


004554 



* 

dbT 

6 T 3 


004555 

12A2 

0096 





004556 

12 A3 

4127 





004559 



* 

DEC 

R 

OOES FRUM 1 TO 0 

004560 

12A4 

L95A 





004561 



* 

bZT 

Bl 12 

BRANCH IF ZERO TRUE 

00456*: 

12A5 

3D2 7 





004565 



* 

LUC 

BT 11 


00456b 


0226 

6T11 

LOU 

X * 022b • 


004567 



* 

WAIT 

BRANCH 

ON ZERO TRUE ERROR 

004568 

12 A6 

0360 





004569 

12A7 

3100 





004570 



* 

LOC 

BT 12 


004571 


022E 

6T12 

LoU 

X * 022t * 


004574 



* 

ozF 

6 1 17 

BRANCH IF ZERO FALSE 

004573 

12Ab 

5D26 





004576 



* 

DEC 

R 

GOES FROM 0 fO FF 

004577 

12A9 

045 A 





00457b 



* 

bZF 

61 18 


004579 

12 AA 

5D26 





004582 



# 

LOC 

BT 17 


004583 


0235 

6T17 

LOU 

X 1 0235 • 


004584 



* 

WAIT 

BRANCH 

ON ZERO FALSb ERROR 

004585 

l2Ab 

0360 





004586 

1 2 AC 

3100 





004587 



# 

LUC 

BUS 


004588 


0238 

bT 18 

tou 

X• 0238 • 


004589 



* 

bLCT 

LRZl 


004590 

12 AD 

DE63 





004593 

12 Ab 

2 704 





004594 



* 

bLCF 

UNZZ 


00*395 

12AF 

0t63 





004598 

12B0 

2603 





004399 



* 

LOC 

ERz 1 


U04b00 


0240 

EKZ1 

LOU 

X * 0240 • 


00*601 



* 

WAIT 

BRANCH 


004602 

1261 

6031 





004603 



* 

LUC 

UNZZ 


004o04 


0243 

UNZZ 

LoU 

X 1 0243 * 


004603 



* 

UN 6 



004606 

1262 

0060 





004b07 

1263 

3120 





004606 



* 

bLCF 

LRzl 


004609 

1264 

Dt63 





004612 

1263 

26F6 





004613 



* 

LUC 

BT ID 


00461* 


024 A 

6T10 

LOU 

X»024A* 


004613 



* 

C 

23 

COMPARE WITH LCT 23 

00461b 

1266 

9617 





004619 

1267 

1097 





004620 



* 

DbT 

BT*F 


004621 

1268 

4196 





004622 

1269 

4127 





004625 



ft 

WAIT 

ERROR 

IN STORE INST* 



THLE DCMC1 

•REV. 

0U4O26 

120A 

G3dD 

004627 

00462b 

l2bo 

3100 

004g29 

004630 


0256 

004633 
0040 34 

12bC 

D41 7 

004637 

12 BU 

86FF 

00463b 

004639 

12bE 

1097 

004640 

12bF 

4196 

004641 

004644 

12 CO 

4126 

004645 

00464b 

1 2 C1 

16D4 

004649 

12C2 

1896 

004632 

12C3 

1810 

004653 

00*654 

1 2 C4 

9741 

004t> 5 5 

I2C5 

9641 

0046 5b 
004659 

12C6 

260b 

004o62 

004663 

12C 7 

D41 7 

Q04o66 

1 2 Cb 

9618 

004667 

00466b 

12C9 

1097 

004o69 

12CA 

4196 

004o70 

004673 

12Cb 

4127 

004674 

004673 


0277 

O04o 76 

12CC 

03bD 

004677 

00467b 

12Cd 

3100 

004679 

004680 


027A 

004683 

004684 

12CL 

D41 fa 

004687 

00468b 

l2CF 

2002 

004689 

004690 


027E 

004693 

004694 

12 DO 

2080 

004695 

004d96 


0280 

004699 

12D1 

9618 

004 700 
004701 

12D2 

1097 

004 702 

12D3 

4196 

004703 

004706 

12D4 

4126 

004707 
004 710 

12D5 

EEDA 

004711 

1266 

1896 

004714 

1207 

1810 

004 713 
004716 

12D8 

9741 

004717 

12D9 

9641 

0 0 4 7 2 U 
004721 

12DA 

2616 

004724 
004723 

l2Db 

DA 17 

00472b 

12DC 

9617 

004729 

004730 

12DD 

1097 

004/31 

12Dt 

4196 

004734 

004735 

12DF 

4126 

004736 

004/39 

12E0 

ObDA 

004740 

12E1 

1896 

004 743 

I2E2 

1710 

004744 

004745 

12E3 

9741 

004746 

12E4 

9641 

004 749 
004750 

12E5 

2703 

004751 

004752 


02 AA 

004753 

004754 

12tb 

BD31 

004755 

004756 


02 Ap 

004757 

004760 

12E7 

OODA 

004761 

12E8 

1796 

004764 

I 2 E 9 

1710 

004765 

004766 

12EA 

9741 

004767 

12Lb 

9641 

004770 

004771 

12EC 

26 F 2 

004774 

004775 

12ED 

D618 

004778 

12EE 

9617 

004779 

004780 

12EF 

1097 

004781 

12F0 

4196 

004782 

004785 

12 F 1 

4126 

004 786 
004789 

12F2 

16D8 

004790 

I 2 F 3 

1796 

004793 

12F4 

1810 

004794 

004795 

12F 3 

9741 

004796 

12F6 

9641 

004799 

004b00 

12 F 7 

260B 

004803 

004804 

12F8 

D818 


* 

bT4F 

* 

LUC 

EuU 

AND 

BT4F 

X•02 56• 
23 

* 

C 

=X»FF* 

* 

bef 

BT4D 

* 

AND 

24 

* 

C 

24 

* 

pEF 

tiT 4D 

* 

AND 

23 

* 

C 

24 

# 

BET 

B T AC 

* 

BT4D 

* 

LUC 

tuu 

WAIT 

BT4D 
X»02 77* 
AND 

* 

BT AC 
* 

LOC 

tuu 

AND 

blAC 

X * 027 A * 
24 

* 

b 

TMP 1 

* 

TEMPA 

* 

LUC 

tuU 

B 

TEfiPA 

X * 02 7E• 
ST 

* 

TMP1 

* 

LUC 

LQU 

C 

TMF1 

X• 0<c8U * 
24 

* 

dEF 

bT4D 

* 

UR 

24 

* 

C 

24 

ft 

BEF 

BT4C 

ft 

UR 

23 

* 

C 

23 

* 

dEF 

BI*C 

* 

UK 

24 

# 

C 

23 

ft 

BET 

bTRC 

ft 

BT4C 

* 

LUC 

ECU 

WAIT 

BT4C 

X * 02 AA • 
UR 

* 

BTRC 

ft 

LUC 

EQU 

UR 

BTRC 

X • 0<: AD * 
23 

* 

C 

23 

* 

bEF 

BT4C 

# 

XQR 

24 

* 

C 

23 

ft 

dEF 

BT4B 

* 

XQR 

23 

# 

C 

24 

* 

BEF 

bT4B 

* 

XQR 

24 

* 

C 

24 
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AND R (FF) WITH LCT 23 (FF) 
C =X* FF• 


O 


AND K (FF) WITH LCT 24 (0) 
COMPARE R (0) With LCT 24 (0) 


AND R (0) 
COMPARE R 


WITH LCT 23 (FF) 
(0)* LCT 24 (0) 


INSTRUCTION ERROR 


AND R (0) WITH LCt 24 (U) 


BRABCN 10 SUdROUTine 


OR R (0)* LCT 24 (0) 
COMPARE R WITH DATA BUFF 


OR R(U)* LCT 23 (FF) 
COMPARE R WlTH LCt 23 


OR R (FF) , LCT 24 (0) 
COMPARE R (FF), LCT 23 (FF) 


INSTRUCTION t-RROR 

OR R (FF) , LCT23 (FF) 
COMPARE R (FF) , LCT 23 


EXCL. OR R (FF)t DATA BUFF (0) 
COMPARE R ( F F) * LCt 23 (FF) 


EXCLUSIVE OR R (FF), LCT 23 (FF) 
COMPARE R (0) WITH LCT *4 (0) 


EXCL# OK R (0) WITH LCT 24 (0) 





TITLE DChCl 

•RtV. a* 
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004807 

1 2 F 9 

9616 






004o0b 

12F A 

1097 






004609 



* 

btT 

bTXC 



ui)4blo 

12 Ft) 

4196 






0046 1 i 

lbFL 

4127 






004bl4 



# 

LOC 

b T4b 



004b 15 


0209 

bl 4b 

tub 

X • 02D9 * 



004 b16 



* 

WAIT 

XOK 


IN57RUCIION lRROR 

004b17 

12 F D 

03bD 






004b lb 

12Ft 

3100 






004619 



* 

LOC 

bTXC 



004620 


020C 

bTXC 

LOU 

X * 02UC * 



004o21 



* 

XOR 

23 


EXCL. OR R <u), LCT 23 IFF) 

004624 

12FF 

0617 






004625 



# 

C 

23 


COMPARE R (Ft-) , LCT 23 (FF) 

004626 

1300 

9617 






004629 

1301 

1097 






004630 



* 

dEF 

bT4b 



004b 31 

1302 

4196 






00483c 

1303 

4126 






004638 



* 

LOC 

BT4J 



004b36 


02E7 

bT4J 

EuU 

X • 02E7• 



004637 



* 

LO 

=X«AA* 


LD =X*AA* 

004836 

1304 

F2C6 






004841 



* 

RET 




004642 

1305 

AADE 






004643 

1306 

526E 






004 fa 44 



* 

MOP 




004648 

130 7 

0001 






004646 



* 





004647 



* RAM 

INSTRUCTION TEST, 

PART 2* 

LOADED AT H A 

004648 



# 





004649 



# 





004680 


1306 

INS7R2 

EUU 

$ 



004b 51 



# 

LOC 

INS2A 



004882 


U2EE 

INS2A 

EQU 

X*02EE» 



004653 



* 

JUMP 

IMS6 



004656 

1308 

3F00 






004657 



* 

OKG 

X•U2F1 • 



004856 



* 

LOC 

bTYO 



004b 5v 


02 F 1 

bTYO 

EuU 

X•02F1 • 



004660 



* 

MOP 

DUMMY 



004861 

1309 

fc-F 01 






00486^ 



* 

oS 

TEMPA 


BRANCH ST ORE TO X»200» 

004663 

130A 

b030 






004664 

130b 

8020 






004667 



* 

C 

=X•AA• 


COMPARE R (AA) , =Aa 

00466b 

1 30C 

8766 






004671 

130 D 

AA10 






004672 

130E 

9741 






004673 



* 

bET 

BTA7 



004874 

130F 

964 | 






004877 

1310 

2703 






004676 



* 

LOC 

BId7 



004679 


0300 

bTb7 

EuU 

X * 0300 * 



004680 



* 

WAIT 

BRANCH 


AND S1 ORE ERKOR 

004681 

1311 

b031 






00468b 



* 

LOC 

BT A 7 



004683 


0303 

bTA7 

LUU 

X • 0303• 



004884 



* 

dS 

Bl A6 


BRANCH STORE TO X«306» 

004b85 

1312 

0060 






004686 

1313 

3080 






004689 

1314 

2062 






004890 



* 

C 

= X * 55 * 


C = X * 55• 

004693 

1315 

6655 






004694 

1316 

1097 






004695 



* 

BLF 

BTb7 



004696 

1317 

4196 






004897 

1316 

4126 






00490U 



* 





004901 



* HERE 

FuLLOwS THt lAbLE 

LOOKUP 

TEST 

004902 



* 





004903 



* 

LD 

= 0 


LD =0 

004904 

1319 

tFC6 






004907 



* 

TLU 

55 


TAbLE LOOKUP, POINTER AT LCT 55 

00490b 

131A 

oode 






004911 

131b 

3 7b0 






004912 

1 31C 

30E0 






004913 



* 

C 

= 3 


FIRST ENTRY uF TABLE 15 3 

004916 

1310 

8603 






004917 

131L 

1097 






004916 



* 

bET 

NEXT 



004919 

13 IF 

4196 






004920 

1320 

4127 






004923 



* 

WAIT 

TABLE 


LOOKUP ERROR 24 1st ENTRY 

004924 

1321 

03BD 






004928 

1322 

3100 






004926 



* 

LOC 

NEXT 



004927 


0324 

NEXT 

EuU 

X* 0324 * 



004926 



* 

LD 

= 2 


LD =2* GET 3U ENTRY 

004931 

1323 

C602 






004932 



* 

TLU 

55 


TAbLE LOOKUP, LCT 55 

004935 

1324 

DE37 






004936 

1325 

B030 






004937 



* 

WAIT 




004938 

1326 

EGBD 






004939 

1327 

3100 






004940 



# 

WAIT 




00^94i 

1326 

B031 






004942 



# 

WAIT 




004943 

1329 

oobo 






004944 

132A 

3100 






004945 



# 

WAIT 

TLU 


ERROR 24 INCORRECT BRANCH 

004946 

132b 

bD31 






004947 



# 

b 

NEXT 1 


GOOD 

00494b 

132C 

0020 






004951 



# 

WAIT 

BAD 


TLU BRANCH 

004952 

1320 

09B0 






004953 

1326. 

3100 






004954 



* 

WAIT 

DITTO 



004955 

132F 

bD31 






004956 



* 

WAIT 

DITTO 



004957 

1330 

OObD 
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00495B 

1331 

3100 





004959 



* 

toe 

NEXT 1 


004960 


0342 

NEXT 1 

EGO 

X * 0342 • 


004961 



* 

C 

sX• 2 • 

COMPARt R WITH •2• f ^ 

004964 

1332 

8602 





004965 

1333 

1097 




1 y 

00496o 



* 

bET 

NEXT 2 


004967 

1334 

4196 





00496b 

1335 

4127 





004971 



* 

WAIT 

TLU 

ERROR 24 WROrG DATA CAMt BACK 

00497^ 

1336 

03BD 





004973 

1337 

3100 





004974 



* 

LOC 

NEXT2 


004975 


034E 

NEXT2 

EUU 

X•034t• 


00497b 



* 

LO 

*1 

GET SECOND ErTRY FROM TABLE 

004979 

1338 

C601 





004980 



* 

TLU 

55 

TLU INDIRECT THRU LCT 55 

004983 

1339 

0E37 





00*984 

133 A 

6030 





004985 



* 

C 

sX»lA» 


004986 

133b 

E086 





004989 

l 33C 

1A10 





004990 

1330 

9741 





004991 



* 

bET 

NEXT3 


004992 

133E 

9641 





004995 

133F 

2703 





004996 



* 

WAIT 

WRUNG 

DAIA BACK FRgM TLy 

004997 

1340 

6031 





004998 



# 

LOC 

NtX 1 3 


004999 


0361 

NEXT3 

tuU 

X • 0361 • 


0O5000 



* 

WAIT 



005001 

1341 

0060 





0Q5G0a 

1342 

3100 





005003 



* 

NOP 



00500* 



* 




005005 



* instruction 

TEST, PART 

3, GETS LOADED Al 306 

005006 



# 




005007 



* 




005008 


1343 

INSTR3 

EUU 

$ 


005009 



# 

URG 

X•036A* 


005010 

1343 

0100 





005011 



* 

LOC 

BTA6 


00501a 


036A 

6TA6 

tuU 

X • 036A• 


005013 



# 

LO 

3 

LD R FROM LCT 3 { FF)* PRELOADtO IN LCT SETU 

005016 

1344 

0603 





005017 



* 

C 

s X • F F • 

C =»FF» 

005020 

1345 

86FF 





005021 

1346 

1097 





005022 



* 

bEF 

BTA9 


005023 

1347 

4196 





00502* 

1348 

4126 





005027 



* 

LO 

28 

LO R, LCT 28 (AA) , pRELOAOtO 

005028 

1349 

0606 





005031 



# 

C 

=X»AA» 


005032 

134A 

1C86 





005035 

134b 

AA10 





005036 

134C 

9741 





005037 



* 

bET 

BTB5 

■ , 

005038 

1340 

9641 




X-. Jp' 

005041 

134E 

2703 





005042 



* 

LOC 

BTA9 


005043 


0380 

6TA9 

ego 

X•0380 * 


00504* 



* 

wait 

LOAD 

ADDRESSING ERROR 

005045 

134F 

6031 





005046 



* 

LOC 

BT65 


00504 7 


0383 

6TB5 

EUU 

X * 0383• 


005048 



* 

LO 

44 

LOAD K,LCT 4*t (55), pRE LOADED 

005049 

1350 

0006 





005052 



* 

c 

= X * 55• 

=X«55» 

005053 

1351 

2C86 





005056 

1352 

5510 





005057 

1353 

9741 





005058 



* 

6EF 

BTA9 


005059 

1354 

9641 





005062 

1355 

26 F2 





G05U63 



# 

LO 

63 

LOAD R, LCT 63 (AA), PRELOADtO 

005066 

1356 

06 3 F 





005067 



* 

c 

=X•AA• 

C =X*AA« 

005070 

1357 

86AA 





005071 

1358 

1097 





005072 



* 

bEF 

B T A9 


005073 

1359 

4196 





005074 

135A 

4126 





005077 



* 

LO 

sX•80• 

TEST VALUE 

005078 

135b 

E7C6 





005081 



* 

SR 

SHIM 

RIGHT 

005082 

1 35C 

8054 





005083 



* 

C 

=X*40» 


005086 

1350 

8640 





005087 

135t 

1097 





005086 



* 

bEF 

ERK6 

SHIFT FAILED IF BRANCH 

005089 

I35F 

4196 





005090 

1360 

4126 





005093 



* 

SR 

SHIM 

AGAIN 

005094 

1361 

1F 54 





005095 



* 

C 

=X*20* 


005098 

1362 

8620 





005099 

1363 

1097 





005100 



* 

bEF 

ERK6 

BRANCH IF SF»iFT FAILED 

005101 

1364 

4196 





005102 

1365 

4126 





005105 



* 

BL6F 

BT4G 

branch if last block false 

005106 

1366 

1596 





005107 

1367 

6585 





005106 

1368 

2027 





005111 



* 

LOC 

B T4H 


005112 


0365 

6T4H 

EQU 

X•03B5• 


005113 



* 

WAIT 

BLCF 

OR BLCT FAILURE 4 X 

00511* 

1369 

0360 




1 

005115 

136A 

3100 




€ j 

008116 



* 

LOC 

BT4G 


005117 


0366 

BT4G 

EQU 

X • 0368• 


005116 



* 

bLBT 

BT*H 

branch if last BLOCK true 
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0Q5U9 

1360 

9665 

005120 

13 6C 

8520 

005123 

1360 

26F7 

005124 

005127 

1 361 

C655 

00512b 

005129 

1 36F 

OE52 

005130 

1370 

6E00 

005131 

005132 


03C4 

005133 

00513* 

1371 

b031 

005135 

005136 

1372 

0001 

00513/ 
00513b 
005139 
005140 
005X41 


1373 

005142 

005143 

1373 

0031 

005144 

005145 

1374 

OObO 

005146 

1375 

3100 

005147 

00514b 


03CE 

005149 

005152 

1376 

3F00 

005153 

005154 

005155 

005156 


1377 

005157 

00515b 

1377 

0600 

005159 

1378 

3100 

005160 

005161 

1379 

b03 1 

005162 

005163 


0307 

005164 

005165 

137A 

003F 

00516b 

137b 

FF 17 

005169 

005170 

005171 

005172 


137C 

005173 

005174 

13/C 

b03! 

005175 

005176 

1370 

OObO 

005177 

137E 

3100 

00517b 

005179 


03E0 

005180 

005183 

137F 

3 F F F 

005184 

005185 

005186 

005x87 

00518b 

005189 

005190 

005191 

1380 

EbOO 

005192 

005193 


0400 

005194 


1381 

005195 

00519b 

1381 

2003 

005199 

005200 


0402 

005201 

005202 

1382 

0031 

005^03 

005204 


0405 

005205 

005206 

1383 

0006 

005*09 

005210 

1384 

3786 

005213 

1385 

0510 

005214 

1386 

9741 

005215 

005216 

1387 

9641 

005219 

1388 

275A 

005220 

005223 

1389 

8604 

005224 

1 38A 

1097 

005225 

005226 

138b 

4196 

005227 

138C 

4127 

005230 

005231 

1380 

5886 

005234 

13bE 

0310 

005235 

138F 

9741 

005236 

005^37 

1390 

9641 

005240 

1391 

2756 

005241 

005244 

1392 

8602 

005245 

1393 

1097 

005246 

005247 

1394 

4196 

005248 

1395 

4127 

005451 

005252 

1396 

5486 

005255 

1397 

0110 

005256 

1398 

9741 

005257 

005258 

1399 

9641 

005261 

139A 

2752 

005262 

005263 

139b 

6030 

005264 

005265 

139C 

AQD7 


* 

LO 

=X»55» 



LD sXi55* 


* 

RET 






ERR6 

* 

LOC 

EUU 

WAIT 

ERK6 

X•03C4 * 





* 

NUP 






* 

* 

* instruction 

* 

1NSTR4 EuU 
* WAIT 

TEST - PART 

S 

4 

- LOADED AT X»5FD» 


# 

WAIT 






* 

INS4 

* 

LOC 

EQU 

JUMP 

1 NS4 
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* 

* PART 

* 

INSTR5 

* 

5 - LOADED AT AFE 

EUU $ 

WAIT 





# 

WAIT 






# 

1NS5 

* 

LOC 

EUU 

JUMP 

INS5 

X•0307• 

BT YD 





oc 

* 
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* 

INSTR6 EUU 
* WAIT 

BTYD~X»03DA» 

TEST - PART 

$ 

6 , 

LOADEO 

AT UFb 


# 

WAIT 






* 

INS6 

* 

LOC 

EUU 

JUMP 

INS6 

X»03E0» 

INS4 





He 

* TRANSMIT DATA ChANNEL PROGRAM 

* UEIS LOADEO AT X*4Q0» 

* 

* 

* 

* OKU X * 400 1 

IN MLCC RAM 


He 

XMOT 

TRANMl 

* 

LOC 

EgU 

EuU 

b 

XMuT 

X*0400• 
i 

RTU1 





He 

RTO 

* 

LOC 

EuU 

WAIT 

RTO 

X * 0402• 
NOKMAL 



END 


RT01 

* 

LOC 

EUU 

LD 

RTOl 

X * 0405 * 

55 
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* 

C 

s5 



IF 5 STOKE In 

57 

# 

bET 

R57 





# 

C 

= 4 



IF 4 STORE IN 

58 

* 

bET 

R5b 





He 

C 

= 3 



IF 3 STORE In 

59 

He 

bET 

R59 





He 

C 

= 2 



IF 2 STORE In 

60 

* 

bET 

R60 





* 

C 

= 1 



IF 1 STORE IN 

61 

* 

bET 

R61 





* 

LO, 

IS 



ZERO 


He 

ST 

62 



STORE IN 62 
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005268 



* 

LOC 

RT02 

005269 


0439 

RT02 

eou 

X•0439• 

005270 



# 

LO 

56 

005271 

1390 

3ED6 




00527* 



* 

C 

= 0 

005475 

139E 

3886 




00547b 

139f- 

0010 




005279 

13A0 

9741 




005280 



* 

btT 

R70 

005281 

13A1 

9641 




005284 

13A2 

2710 




005485 



* 

8LCF 

R67 

005286 

13A3 

0E63 




005289 

13A4 

2603 




005290 



# 

WA I T 

GNd 

005291 

13A5 

BD31 




005294 



# 

LOC 

R6 ( 

005293 


044b 

R67 

EQU 

X * 0448 * 

005294 



* 

8LCT 

R68 

005295 

13A6 

OQDE 




005296 

13A7 

6327 




005299 



* 

GN8 


005300 

13A8 

1580 




005301 

13A9 

3120 




005302 



* 

b 

R TO 

005305 

13AA 

20AE 




005306 



* 



005307 



* 



005308 



* 



005309 



* 

LOC 

R 70 

005310 


0454 

R70 

EQU 

X * 0*54» 

005311 



* 

BLCF 

R69 

005312 

13AB 

0E63 




005315 

13 AC 

260F 




005316 



* 

bLCT 

R71 

005317 

13A0 

OE63 




005320 

13AE 

2703 




005321 



* 

WAIT 

WAIT 

005322 

13AF 

8031 




005323 



* 

LOC 

R71 

005324 


045f- 

R71 

EOU 

X«045F» 

005325 



# 

GNB 


005326 

13B0 

0080 




005327 

1381 

3120 




00532b 



* 

8 

RTO 

005331 

13B2 

209E 




005334 



* 



005333 



* 



005334 



* 



005335 



* 

LOC 

R68 

005336 


0464 

R68 

LOU 

X * 0*64 * 

005337 



* 

WAIT 

bLCT 

005 b 3ti 

1303 

b031 




00533V 



* 

LOC 

R69 

0053*0 


0467 

R69 

EOU 

X * 0467 * 

005341 



# 

WAIT 

BLCf- 

005342 

1 3b4 

0080 




005043 

1385 

3100 




00534* 



* 



005345 



* 



00534o 



* 



0Q534f 



* 

LOC 

R57 

00534b 


046A 

K57 

EQU 

X f 046A* 

005349 



# 

LO 


005350 

13b6 

8030 




005351 



* 

bT 

57 

005352 

1387 

A007 




005355 



# 

8 

R5o 

005356 

1380 

3920 




005359 



# 

LOC 

R58 

005360 


0471 

R58 

EQU 

X•0471 • 

005361 



* 

LO 


005362 

1389 

1 ABO 




005363 

13bA 

30A0 




005364 



* 

bT 

58 

005367 

138b 

U73A 




005368 



* 

8 

R56 

005371 

138C 

2013 




005374 



* 

LOC 

R59 

005373 


0478 

K59 

EOU 

X * 0478• 

005374 



* 

LO 


005375 

1380 

b030 




005376 



* 

bT 

59 

005377 

13bE 

A007 




005380 



* 

8 

K 5 6 

005381 

1 3bF 

3B20 




105384 



* 

LOC 

R60 

0 5 3 b 5 


04 7 F 

R60 

EOU 

X * 047F• 

15 3 b 6 



* 

LO 


63 8 7 

13C0 

OCBD 




5388 

13C1 

30A0 




389 



* 

bT 

60 

392 

13C2 

073C 




‘93 



* 

8 

R56 

9t> 

13C3 

2005 




yf 



* 

LOC 

R61 

b 


0486 

K61 

EOU 

X•0486 * 

1 



* 

LO 



13C4 

8030 







* 

bT 

61 


1 3C5 

A007 







* 

lQC 

R56 



0488 

R56 

EOU 

X*0*8b» 




* 

LO 

55 


3C6 

3006 







* 

OEC 



C 7 

375A 







* 

bT 

55 


\8 

0737 







* 

LO 

63 


i 

063F- 







# 

OEC 





# 

bT 

63 
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010 BRANCH 

DIO BRANCH 
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Ti1 lE DCMC1 

* REV• A* 




005^23 

13CA 

5 AD 7 




005426 



* 

bZT 

R)D2 

00542 7 

13Cb 

3F5D 




005430 

13CC 

2 7 A1 




005431 



* 

bLCT 

R55 

00543^ 

13CD 

DE63 




005435 

13CL 

2703 




005436 



# 

JUMP 

RTD1 

005439 

1 3CF 

3FFF 




00544U 



* COME 

HERE 1 

rOR UNDERRUN TEbT ONLY 

005441 



* 

LOC 

R55 

005442 


049F 

R55 

EUU 

X * 049 P * 

005443 



* 

GNb 


005444 

13u0 

66bD 




005445 

1 3D 1 

3120 




005446 



* 

LD 


005447 

13D2 

bD30 




00544# 



* 

JUMP 

RTD 

005449 

13D3 

A03F 




005452 

13D4 

FF5A 


DC 

RT D-X * 04A8• 

005453 



* 

NOP 


005454 



* 

NOP 


005455 

13U3 

0101 




005456 



* 

NOP 


005457 



* 



00545b 



* 



005459 



* 



005460 



* RECEIVE DATA CHANNEL PRUGRAM 

005461 



* 



005462 



* 



005465 



* 



005464 



* 

ORG 

X f 200* 

005465 

13D6 

0100 




005466 


13D7 

RCDTC1 

EuO 

$ 

005467 



* 

LOC 

RCDT 

005468 


0200 

RCDT 

EuU 

X•0200 * 

005469 



* 

b 

XMD 1 

005472 

1307 

2003 




005473 



* 

LOC 

XMD 

005474 


0202 

XMD 

EUU 

X 1 02 02 * 

005475 



* 

WAIT 

NORMAL 

005476 

13D8 

BD31 




005477 



* 

LOC 

XMD1 

005478 


0205 

XMD1 

EUU 

X • 0205 * 

005479 



* 

LD 

55 

005480 

1309 

OODb 




005483 



* 

C 

= 5 

005484 

13DA 

3 786 




005487 

1 3Db 

0510 




005488 

13DC 

9741 




005489 



* 

btT 

XM57 

005490 

13DD 

9641 




005493 

130E 

2755 




005494 



* 

C 

= 4 

005497 

1 3 DP 

8604 




005498 

1 3E0 

1097 




005499 



* 

bET 

XM58 

005500 

13E1 

4196 




005501 

13E2 

4127 




005504 



* 

C 

5 3 

005505 

13E3 

5386 




00550# 

13E4 

0310 




005509 

13E5 

9741 




005510 



* 

bET 

XM59 

005511 

13E6 

9641 




005514 

13E7 

2751 




005515 



# 

C 

= 2 

00551b 

13E8 

8602 




005519 

13E9 

1097 




005520 



* 

bET 

XM60 

005521 

13EA 

4196 




005522 

13Eb 

4127 




005525 



* 

C 

= 1 

005526 

13EC 

4F86 




005529 

1 3ED 

0110 




005530 

13EE 

9741 




005531 



* 

bET 

XM61 

005532 

13EF 

9641 




005535 

13F0 

274D 




005536 



* 

LD 

62 

005539 

13F1 

D63E 




005540 



* 

ST, 

PUT 

005541 

13F2 

BD30 




005542 



* 

LOC 

XMD2 

005543 


0239 

XMD2 

EUU 

X • 0239 • 

005544 



* 

LD 

56 

005545 

13F3 

C0D6 




005548 
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= 0 

005549 

13F4 

38b6 




005552 

13F5 

0010 




005553 

13Fo 

9741 




005554 
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BET 

XM70 

005555 

13F7 

9641 




00555b 

13F 8 

2710 




005559 



* 

6LCF 

XM67 

005560 

13F9 

DE63 




005563 

UFA 

2603 




005564 



* 

WAIT 

GNb 

005565 

13Fb 

bD31 




005566 



* 

LOC 

XM67 

005567 


0246 

XM67 

EUU 

X * 0246 1 

005568 



# 

bLCT 

XM68 

005569 

13FC 

OODE 




005570 

13FD 

6327 




005573 



* 
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XM71 

005574 


024F 

XM71 

EQU 

X* 024F * 

005575 



# 

GNb 


005576 

13FE 

106D 
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13FF 

3120 




005578 
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005581 
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* 
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XM70 

EQU 
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005587 



# 

6LCF 

XM69 




005586 

1401 

0E63 







005591 

1402 

260A 
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* 

bLCT 

XM7 1 




005593 

1403 

0E63 







005596 

1404 

27F3 
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* 

WAIT 

WAIT 

BLCT 

DID NOT BRANCH 


005596 

1405 

6031 







005599 



* 






005600 



* 






00560* 



# 






0O5602 



# 

LOC 

* XM68 




005603 


02 5 F 

XM68 

EUU 

X • 025F • 




005604 



# 

WAIT 

BLCT 

DID 

bkanch 


005605 

1406 

0080 







005606 

1407 

3100 







005607 



* 

LOC 

XM69 




005608 


0262 

XM69 

EQU 
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005609 



# 

WAIT 

BLCF 

DID 

BRANCH 


005610 

1408 

8031 







005611 



# 






005612 



# 






005613 



* 






005614 



* 

LOC 

XM57 




005615 


0265 

XM57 

too 
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005616 



* 

LO 

5 7 




005617 

1409 

0006 







005620 



# 

ST 





005621 

140A 

39BD 







005622 

1406 

30C0 







005623 



* 

6 

XM56 




005626 

140C 

201A 







005627 



* 

LOC 

XM58 




00562b 


026C 

XM58 

EQU 

X * 026C • 




005629 



* 

LD 

58 




005632 

1400 

063 A 







005633 



* 

ST 





005634 

140t 

8030 







005635 



* 

b 

XM56 




005636 

14GF 

C020 







005639 



ik 

LOC 

XM59 




005640 


0273 

XH59 

EQU 

X • 0273' 




005641 



* 

LO 

59 




005642 

1410 

1306 







005645 



# 

ST 





005646 

1411 

3880 







005647 

1412 

30L0 







005648 



* 

6 

XM56 




005651 

1413 

200C 







005652 



Ik 

LOC 

XFI60 




005653 


027A 

XM60 

LuU 

X * 02 7 A• 




005654 



* 

LO 

60 




005657 

1414 

D63C 







005o5b 



# 

ST 





005659 

1415 

6030 







005660 



# 

b 

XM56 




005661 

1416 

C020 







005664 



# 

LOC 

XM61 




005665 


0281 

XH61 

EuU 

X • 028 1 • 




005666 



* 

LD 

61 




005667 

1417 

0506 







005670 



* 

5T 





005671 

1416 

30BD 







005672 

1419 

30C0 







005673 



* 

LUC 

XM56 




005674 


0286 

XM56 

EQU 

X • 0286 • 




005675 



* 

LO 

55 




005678 

141A 

0637 




-*v. 



005679 



* 

DEC 





005680 



# 

ST 

55 




005681 

1416 

5 A07 







005684 



# 

LO 

63 




005685 

14 1 L 

3706 







00568b 



* 

OEC 





005689 

1410 

3 F 5 A 







005690 



* 

ST 

63 




005693 

1416 

073F 







005694 



* 

62 T 

XMU2 




005695 

1411- 

5027 







005696 



* 

BLCT 

XM55 




005699 

1420 

A60E 







005700 

1421 

6327 







005703 



# 

JUMP 

XM01 




005704 

1422 

033F 







005707 

1423 

FF68 


DC 

XMD1-X•029A• 




005706 



* 

LOC 

XM55 




005709 


029A 

XM55 

EQU 

X • 029A • 




005710 



* 

QNB 


FOR 

COB OVERRUN TEST ONLY 


005711 

1424 

bD3i 







005712 



# 

ST 





005713 

1425 

2060 







005714 

1426 

30C0 







005715 



# 

JUMP 

XMO 




005716 

142 I 

3FFF 







005719 



* 

NOP 





005720 

1426 

5F01 







005721 



* 

NOP 





005722 



* 

NOP 





005723 

1429 

0101 







005724 



* 






005725 



* 






005726 



* 






005727 



* 






005726 



* 

MLCC 

INPUT DATA PROGRAM 

WITH 



005729 



* 

CRC 

TO GENERATE RANDOM 

DATA 


/f x 

005730 



* 






005731 



# 






005732 



# 





005733 



* 

ORCj 

X • 200 * 




005734 


142A 

RCRTl 

EuU 

$ 






TITLE 0LMC1 • RtV • A* 


OU5735 



* 

LOC 

RMCRT 

005/30 


0*00 

RMCRT 

tuu 

X 1 0200 * 

005/37 



# 

LO 

2 

0U5740 

14* A 

0602 




005 /41 



* 

C 

=X«C6» 

Ou5 /4 a 

142b 

66C.6 




Ou3745 

142C 

1097 




005/46 



* 

btF 

RMCRI3 

005 747 

14*0 

4106 




00574b 

14*6. 

41*6 




005 751 



* 

LO 

= 1 

005/5* 

142F 

15C6 




005755 



* 

LUC 

RMCRT5 

005 756 


0200 

RMCRT5 

tuu 

X«0*00* 

005757 



# 

51 

24 

005 75b 

1430 

0107 




005761 



* 

CCH 


00576* 

1431 

16bb 




005763 

143* 

3160 




005764 



* 

bb 

RMCRT4 

005765 

1433 

B030 




005766 

1434 

8020 




0U5769 



* 

LO 

24 

005770 

1435 

3006 




005773 



* 

XOR 

= X»FT ' 

005774 

1436 

16Ca 




005777 



* 

otc 


005 77a 

1437 

FF5A 




005 770 



* 

XUK 

=X«FF• 

00578* 

1436 

C8FF 




005783 



* 

b 

RMCRT5 

005786 

1430 

206.0 




005787 



* 

LUC 

RMCRT3 

00578b 


02*0 

RMCRT3 

tuu 

X * 02*0• 

005780 



* 

C 

=X*44* 

005794 

143A 

6644 




005793 

143b 

1097 




005704 



* 

LO 

= 5 

005795 

1430 

4106 




00579a 



* 

bt T 

RMCRT7 

005 790 

14 3D 

0506 




005800 

143t 

A127 




005a03 



# 

LUC 

RM6RJ1 

005b04 


0*2b 

RMCRT1 

tuu 

X»02*b« 

005605 



* 

CCH 


005b06 

143F 

OObO 




005a07 

1440 

3160 




005a0a 



* 

bb 

RMCRT4 

005a00 

1441 

b030 




005610 

144* 

80*0 




005a 13 



* 

LO 

4 

005b14 

1443 

1406 




005b 17 



* 

otc 


005b 1 a 

1444 

045 A 




005810 



* 

b 

RMCRT1 

01)562* 

1445 

20F 3 




005823 



# 



005a24 



* 

LUC 

RMCRT7 

005a25 


0*36 

RMCRT7 

tuu 

X•0*36 1 

005b2b 



* 

CCH 


005a27 

1446 

B031 




005b2a 



* 

bb 

RMCRT 4 

005820 

1447 

60bO 




005830 

1448 

3080 




005833 

1440 

2007 




005a 34 



* 

LO 

4 

005637 

144 A 

0604 




005638 



* 

otc 


005630 



* 

AND 

=X«3F• 

005640 

1 44 b 

5AC4 




005843 



# 

D 

RMLRT 7 

005844 

144C 

3F20 




005647 



* 

LUC 

RMCRT 4 

005a4a 


0*47 

RMCRT4 

tuu 

X•0*4 7 1 

005640 



# 

LO 

4 

005a 50 

144D 

F 106 




005653 



* 

bT 


005a54 

1446 

04B0 




005655 

144F 

30C0 




00565a 



* 

LO 

3 

005650 

1450 

0603 




005a60 



* 

bT 


005661 

1451 

b030 




005666 



* 

bLCF 

RMCRT8 

005663 

145c 

CODE 




005664 

1453 

6326 




005667 



* 

GN6 


005668 

1454 

03BD 




005869 

1455 

3120 




005870 



# 

LOC 

RMCRT8 

005871 


0256 

RMCRT8 

tuu 

X•0258• 

005672 



* 

LO 

23 

005675 

1456 

0617 




005676 



* 

otc 


005677 



# 

bT 

23 

005878 

1457 

5A07 




005681 



# 

b*T 

RMCRT2 

00568* 

1458 

1750 




005685 

1459 

2 704 




005686 



* 

RtT 


005687 

145 A 

OE52 




005686 

145b 

6t00 




005680 



* 

LOC 

RMCRT 2 

005690 


0264 

RMCRT2 

tuu 

X 1 0*64• 

005691 



* 

WAIT 


00569* 

145C 

B031 




005693 



# 

b 

RMCRT 

005694 

145D 

0020 




005897 



* 

NOP 


005696 

1456 

9701 




005699 



* 



005000 



* 



005001 



* 

MLCC 

OUTPUT DATA PROGRAM 


RAGt 53 

CHECK CUNF. IS IRC8 


BRANCH IF NO I LRCg 


SEt It CRC1* 




TITLE DCMC1 

•REV. A • 





PAGt 54 


005902 



* 






005903 



* 






005904 



* 






005905 



* 

ORb 

X * 200 * 



4 

005906 


145F 

RQ01 

tGU 

5 




005907 



* 

LOC 

RMOPT 




00590b 


0200 

RMOPT 

tuu 

X * 0200 ' 



005909 



* 

LP 

= 4 




005914 

145F 

0604 







005913 



* 

51 

23 




00591b 

1460 

0717 







005917 



* 

LUC 

RMUPTA 




00591b 


0204 

RMOPTA 

tUU 

X' 0204 * 




005919 



* 

LO 

= 125 




005922 

1461 

0670 







005923 



* 

51 

24 




005926 

1462 

0718 







005927 



* 

LOC 

RMOPT1 




00592b 


0208 

RMOPT1 

LUU 

X' 0208 * 




005929 



* 

LO 





005930 

1463 

BD30 







005931 



* 

COH 





005932 

1464 

AObO 







005933 

1465 

3160 







005934 



* 

LO 





005935 

1466 

bD30 







005936 



* 

dLCF 

RMOPT 2 


CHtCR IF LAS] CHARACTER 


005937 

1467 

AOOfc 







00593b 

1468 

6326 







005941 



* 

gnb 





005942 

1469 

03B0 







005943 

146 A 

3120 







005944 



* 

LOC 

RMOPT2 




005945 


0218 

RM0PT2 

tuu 

X 1 0218 * 




005946 



* 

OCH 





005947 

146D 

B031 







00594b 



* 

LD 

24 




005949 

1460 

6006 







005952 



* 

otc 





005953 

1460 

185A 







005954 



* 

r C 

= 0 




005957 

1461 

8600 







00595b 

146F 

1097 







005959 



* 

5T 

24 




005960 

1470 

4107 







005963 



* 

btF 

RMOPT1 




005964 

1471 

1896 







005965 

14 72 

4126 







00596b 



* 

LO 

23 




005969 

1473 

OF 06 







005972 



* 

otc 





005973 

1474 

175 A 







005974 



* 

C 

= 0 




005977 

1475 

8600 







00597b 

1476 

1097 







005979 



* 

5T 

23 




005980 

1477 

4107 







005983 



# 

btF 

kmopta 




005984 

1478 

1796 






v, ...y 

005985 

1479 

4126 







00598b 



* 

WAIT 





005989 

147A 

OObO 







005990 

147d 

3100 







005991 



* 

NOP 





005992 



* 






005993 



# 






005994 



* 

NOP 





005995 

14 70 

0101 







005996 



* 






00599 7 



* bVT* 

bVF Tt3T 




00599b 


1470 

VALfbT 

tub 

5 




005999 



* 

ORb 

X ' 200 * 




006000 



* 

LD 

= 4 


COUNTtR FOR 4 CCb»S 


006003 

14/0 

0604 







006004 



* 

LOC 

BVT 




006005 


0202 

bVT 

tuu 

X'0^02* 




006006 



* 

bVBT 

bVFF 




006007 

147L 

9665 







00600b 

147F 

8540 







006011 

1480 

2606 







006012 



* 

WAIT 

tRKOR 




006013 

1481 

b03 1 







006U 14 



* 

WAIT 

tKRORf 

bVT 

SHOULD bRANCrt 


006015 

1482 

OObO 







006U16 

1483 

3100 







006017 



* 

LOC 

BVFF 




006018 


020b 

bVFF 

tuu 

X * 020t ' 




006019 



* 

bVBF 

BVTT 




006020 

1484 

9665 







006021 

1485 

8540 







006024 

I486 

2702 







006O25 



* 

b 

BWAIT 




00602b 

148 7 

2006 







006O29 



* 

LOC 

BVT T 




006030 


0216 

bVTT 

too 

X • 02 16 * 




006031 



* 

WAIT 





006032 

14b 8 

6031 







006033 



* 

WAIT 

tRKOR » 

bVF 

SHOULDN'T BRANCH 


006034 

1469 

OObO 







006035 

148 A 

3100 







006036 



* 

LOC 

BWAIT 




006037 


0210 

bWAll 

LUU 

X* 02 1C* 




00603b 



* 

biNb 





006039 

I486 

bD3 1 







006040 



* 

otc 





006041 

148C 

205 A 







006042 



* 

BZF 

bvi 


BRANCH IF MOKE CCb'S 


006043 

1480 

5026 






g S 

006046 



* 

wAIT 

WAIT 


FOR NtXl START 10 

if 

00604 l 

1480 

OFbO 






€ * 

00604b 

148F 

3100 







006O49 



* OOB 

LI5T i 

Rt5tT HAS 

NOW RtSET 

VALID BITS 


0O6050 



* 

LO 

= 4 


COUNTER 











TITLE DCMU 

* REV • A* 




PAGL 55 

006053 

1490 

0604 





00605h 



* 

LOC 

BVF 


006U55 


0228 

bVF 

EuU 

X * 0228 * 


006056 



# 

BVbF 

BVk 


m 00605/ 

1491 

9665 





1 006u5b 

1492 

8540 





0U6U6I 

1493 

2706 





00606*: 



# 

WAIT 



006063 

1494 

b031 





006064 



* 

WAIT 



006U65 

1495 

00B0 





006O66 

1496 

3100 





0 0 o 0 6 7 



* 

LOC 

bVK 


00606b 


0234 

BVk 

EUU 

X * 02 34 * 


006069 



# 

BVbT 

bVK 


006070 

149 7 

9665 





006071 

1498 

8540 





006074 

1499 

2602 





006075 



* 

b 

BVL 


00607b 

149 A 

2006 





006079 



# 

LOC 

BVk 


0060B0 


0230 

bvk 

EUU 

X 1 02 3C * 


006O81 



* 

WAIT 



0U608L 

1490 

B03 1 





006083 



* 

WAIT 



0O6084 

1490 

0060 





006U85 

1490 

3100 





006U86 



* 

LOC 

BVL 


006087 


0242 

bVL 

LUU 

X*t)242* 


00608b 



* 

GNb 



0u6089 

149L 

b031 





006090 



* 

D8C 



006091 

1491" 

205 A 





0U6U92 



* 

B2F 

BVF 

MOKL IQ GO 

006093 

14 AO 

5026 





006096 



* 

WAIT 

DONL 


006097 

14A1 

OFbO 





006098 

14A2 

3100 





006099 



* 

WAIT 



006100 

14 A3 

b031 





006101 


1 4 A4 

8CP 

LUU 

* 


00610^ 



* 




006103 



* 

DlFINlD CONbTANTb 


006104 



* 




006105 



* 




006106 



# 




006107 



* 




006108 

14A4 

AOO 1 

CKC16 

DC 

2 * A001* 


006109 

14A5 

b408 

ccTtt 

DC 

2*8408* 


006110 

14A6 

0000 

LKC8 

KLbV 

1*0 


006111 

14 A 7 

F010 

CRC12 

DC 

2 • F u 10 * 


006112 

14A8 

FFFF 

ALLONE 

DC 

2*FFFF • 

MlNUb UNL OR ALL bus 581 CONSTANT 

006113 

14A9 

0010 

C16 

DC 

X'lo* 

DLCIMAL 16 CONSTANT 

006114 

14 AA 

0000 

FRST 

DC 

0 

FRbT T1 ML THRU FLA^ 

00611b 

14 AB 

0000 

LOOP 

DC 

0 

LOOP CUUNTLK 

^ . 006116 

14 AC 

0000 

PASS 

DC 

0 

PAbb CUUNT 

£ 006117 

14 AO 

FFFF 

ATLT 

RLbV 

16 * — 1 

ACT IVL L1NL TaBLL 

1 00611b 

14b0 

0000 

1MASK 

KLbV 

1*0 

MASK OF ACT IVt LINES 

\ 006119 

1 4 bL 

5555 

DFLT 

DC 

= X• 5555 * 

DLFAULI VALUL 

006120 

14bF 

0101 

PNOP 

DC 

=X*0101 » 

NOP PAITLKN 

006121 

14C0 

0000 

RNG 

DC 

0 

KANGL FOR NOP BUFFER 

006122 

14C1 

805C 

CRLF 

DC 

2 • 805C * 


006123 

14C2 

2020 

SPACE 

DC 

2*2020* 


006124 

14C3 

0000 

MLCADD 

DC 

0 

MLCP ADDRESS 

00612b 

14C4 

0000 

FW-REV 

DC 

0 

MLCP FIRMWARE REV. 

006126 



* 




006127 



* 




006128 



* 




006129 



* 

STURAGl CONTANT5 


006130 



* 




006131 



# 




006132 



* 




006133 



* 




006134 

14C5 

14C7 

ADDS 

DC 

<dummy 

ADDSRLbS STORAGE 

00613b 

1406 

0400 

BUFKNG 

DC 

X • 400 » 

LENGTH OF SLNu* RECEIVE BUFFER 

006136 

1407 

0000 

DUMMY 

KLbV 

1*0 


006137 

140b 

0000 

COUNT 

KLbV 

1*0 

COUNTER 

00613b 

1409 

0000 

CH-CT 

DC 

0 

CHANNEL COUNT 

006139 

140A 

266A 

LNDbAV 

DC 

<Lbi 


006140 

14Cd 

0000 

TIMLIN 

DC 

0 

INITIAL VALUL FOR PASS TIME 

006141 

1400 

0000 

FLAG 

DC 

0 

FLAG 

006142 

1400 

0000 

T PR 

RLbV 

$AF 10 

temporary register 

006143 

1400 

0000 

T8MP 

RLbV 

SAF « 0 


006144 

14CF 

0000 

T8MP1 

RLbV 

$AF *0 


00614b 

1400 

0000 

TLMPbT 

RLbV 

1*0 

STATUS SIORLD HERE 

006146 

1401 

0000 

bCFLG 

KLbV 

1*0 

SCAN FLAG 

006147 

1402 

0000 

CCbFLG 

RLbV 

1*0 

SET CCB AFTER RUPT FLAG 

006148 

1403 

0000 

CRCAC 

RLbV 

1*0 

CRC ACCUMULATOR 

006149 

1404 

0000 

IRG 

RLbV 

1*0 

RANGE INPUT VALUE 

006150 

1405 

0000 

RANG8 

RLbV 

1*0 

KANGL VALUE 

006151 

1406 

0000 

RANG81 

RLbV 

1*0 

secondary range 

006152 

1407 

0000 

KANGEW 

RLbV 

1*0 

RANGE IN WORDg 

006153 

14D8 

0000 

RAMAD 

RtbV 

1*0 

RAM ADDRtSS In MLCc 

006154 

1409 

0000 

RAMAD2 

RLbV 

1*0 

SECONDARY RAM ADDRESS 

006155 

140A 

0000 

1MGA 

RLbV 

$ A F , 0 

DUMMY CCB ADDRESS 

006156 

140B 

0000 

TbA2 

DC 

0 

0 TO END TRAP SAVE AREA 

006157 

1400 

1547 

SBCK. 

DC 

< R MIN b T 


006158 

1400 

0000 

bBCCB 

DC 

0 

GETS SBCK WITH BYTES REVERSED 

006159 

14DL 

0000 

bbccp 

DC 

2*0000* 


006160 

140F 

08AA 


DC 

2 * ObAA ' 


006161 

14E0 

5500 


DC 

2*5500* 


006162 

1481 

0000 

MASK 

RLbV 

1*0 

MASK WORD 

006163 

1482 

0000 

MASK1 

RLbV 

1*0 

SECONDARY MASK WORD 

006164 

1483 

0000 

8RAK 

RLbV 

4*0 

error array 

006165 

1487 

0000 

SAV1 

KLbV 

9*7*$AF,Q 

SUB-PROGRAM RlGS. SAVE AREA 

006166 

14F7 

0000 

bAV2 

RLbV 

9 + 7*S>AF*0 


006167 

1507 

0000 

SAVN 

KLbV 

9+7*$AF*0 


00616b 

1517 

0000 

bAV3 

RLbV 

9*7*SAF*Q 


M 006169 

1527 

0000 

SAV4 

RLbV 

9 + 5*S>AF *0 


■ 006170 

1535 

0000 

bAV6 

KLbV 

2*$AF *0 


006171 

153/ 

0000 

SAV5 

RLbV 

9*7*SAF*0 


006172 

1547 

0000 

RMIN5T 

KLbV 

1*0 

RAM INSTRUCTION TO TEST 

006173 

154b 

0000 

RTCHN 

DC 

0 

INTERRUPT RETURN CHANNEL 
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• A * 


006174 

1549 

0000 



SEC 

DC 

0 SECOND^ STORED HERE 

006175 

154A 

0000 



TTOT 

DC 

0 TICK TOTAL 

006176 

1546 

0000 



INTM 

DC 

0 TEMPORARY TIME VALUE 

006177 

154C 

0020 



ERF 

DC 

45 ERROR FLAG 0 = SHORT PRINTOUT 

006176 

1540 

0000 



STAT 

DC 

0 LAST SI ATUS INPUT STORED HtKE 

006179 

154E 

003C 



HRTZ 

DC 

=60 PWR FREQ 

006180 

154F 

2020 

2020 

4546 

DON 

TEXT 

* ENO-OF-P4SS DCMClS• 


1552 

4420 

4F46 

2050 






4153 

5320 

2020 






2020 

3124 

4443 

4043 




006181 





* 



006182 





# 

1/0 CONTROL WORDS 

006183 





# 



006184 

155C 

0009 



CONTI 

DC 

2*0009* I ODD FUNCTION CODE 

006185 

1550 

oooc 



\CQNT2 

DC 

Z*OOOC* INPUT RANGE FUNCTION CODE 

006186 

155£ 

000F 



C0NT3 

DC 

Z * OOOF * OUTPUT CCB CONTROL FUNCTION CODE 

006187 

155F 

001A 



C0NT4 

DC 

X*1A* INPUT NEXT STATUS FUNCTION CODE 

006186 

1560 

0006 



C0NT5 

DC 

2*0006* OUTPUT BYTE INTO LCT FUNCTIUN CUDE 

006189 

1561 

0018 



C0NT6 

DC 

2*0018* INPUT 5TATU5 FUNCTION CODt 

006190 

1562 

0005 



C0NT7 

DC 

X * 5 * OUTPUT CHANNEL CONTROL FUNTION CODE 

006191 

1563 

0001 



C0NT9 

DC 

2*0001* OUTPUT MLCC CONTROL FUNTION CODt 

006192 

1564 

001E 



CONI 10 

DC 

X•1E• INPUT LCI STAIUS 

006193 

1565 

0003 



C0NT11 

DC 

X* 3 * OUTPUT INTERRUPT CONTROL FUNCTION CODE 

006194 

1566 

001C 



CONT 12 

DC 

X*IC» INPUT DAI A StT STATUS FC 

006195 





# 


006196 





# 



006197 





* 



006198 





# 



006199 





# 



006200 





*ECONSQLE MESSAGES 

006201 





* 



006202 





* 



006203 

1567 

2020 

2044 

4C43 

MESG1 

TEXT 

• DLCP CHANNEL $• 


156A 

5020 

4348 

4146 






4E45 

4C20 

2400 




006204 

1570 

204C 

494E 

4520 

IDMSG 

TEXT 

• LINE $* 


1573 

2400 






006205 

1574 

2049 

4420 

3020 

to 

TEXT 

• iu = S' 


1577 

2024 






006206 

15 78 

2020 

2065 

6664 

DONE 

TEXT 

» END-GF-T13T$• 


157b 

2D6F 

6620 

7465 






7374 

2400 





006207 

1580 

4D42 

2020 

2024 

ERMG 

TtXT 

•MB $« 

006206 

1583 

444C 

4343 

2046 

ERMG1 

TEXT 

• DLlC NOT ON THIS CHANNELS * 


1586 

4F54 

204F 

4620 






5448 

4953 

2043 






4841 

2400 

4E4E 

454C 




006209 

1590 

5241 

4E47 

4520 

TST A 

TEXT 

•KAlMGt TEST S* 


1593 

5445 

2400 

4343 

5354 

2020 




006210 

1597 

4220 

424C 

TSTb 

TtXT 

* CCb BLOCK READ TEST S' 


159a 

4F4 3 

4620 

5245 






4144 

2054 

4553 






5420 

2400 





0062 1 1 

15A2 

4045 

404F 

5259 

T ST C 

TEXT 

'MEMORY TEST S' 


15A5 

2054 

2400 

4553 

5420 




006212 

15A9 

554E 

4156 

4149 

T STD 

TEXT 

•UNAVAILABLE RESOURCE TEST S' 


1 5 AC 

4C41 

424C 

4520 






5245 

534F 

5552 






4345 

2054 

4553 






5420 

2400 





006213 

15b7 

4C43 

5420 

4F55 

TSTt 

TtXT 

•LCI OUJPUI/INPUT BYTE TEST S' 


1 5bA 

5450 

5554 

2F49 






4E50 

5554 

2042 






5954 

4520 

5445 






5354 

2024 





006214 

1 5C5 

534F 

4654 

2049 

T STS I 

TEXT 

•SOFT INITIALIZE TEST S' 


15C8 

4649 

5449 

4 1 4C 






495 A 

4520 

5445 






5354 

2024 





006215 

1500 

4348 

414E 

4645 

ISTF 

TtXT 

•channel program TEST S' 


1503 

4C20 

5052 

4F4 7 






5241 

4020 

5445 






5354 

2024 





0062 1 6 

150b 

494E 

5354 

5255 

TST 0 

TEXT 

•INSTRUCTION TtST S' 


150E 

4354 

494F 

4620 






5445 

5354 

2024 




006217 

15E4 

4F 55 

5450 

5554 

TSTH 

TtXT 

•OUIPUT INTERRUPT CONTROL TtSI S' 


15E7 

2049 

4654 

4552 






5255 

5054 

2043 






4F4E 

5452 

4F4C 






2054 

2400 

4553 

5420 




006218 

15F4 

494E 

4954 

4941 

I ST J 

TEXT 

•INITIALIZE AND CHANNtL REStT TEST S' 


15F7 

4C49 

5A45 

2041 





4E44 

2043 

4841 






4E4E 

454C 

2052 






4553 

4554 

2054 






4553 

5420 

2400 




006219 

1606 

5354 

4F50 

2049 

TSTK 

TEXT 

•STOP I/O TEST S' 


1609 

2F4F 

2054 

4553 






5420 

2400 





006220 

1601 

5245 

4345 

4956 

TSTL1 

TEXT 

•RtLtlVt TtST S' 


16 11 

4520 

2024 

5445 

5354 




006221 

1615 

5452 

4146 

5340 

TSTM1 

TEXT 

•TRANSMIT TtST S' 


1616 

4954 

2054 

4553 






5420 

2400 





006 clc 

1610 

4441 

5441 

2049 

TSTN 

TEXT 

•DATA INPUT AND CRC TEST S' 


1620 

4E50 

5554 

2041 






4E44 

2'04 3 

5243 






2054 

2400 

a553 

5420 




006223 

162 A 

4441 

5441 

204 F 

TSTP 

TEXT 

•data output test $* 


1620 

5554 

5055 

5420 






5445 

5354 

2024 




006224 

1633 

4649 

5253 

5420 

TSTR 

TlxT 

•FIRST INTERRUPT TEST S' 


1636 

494E 

5445 

5252 





5550 

5420 

5445 






5354 

2024 
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006225 

163E 

4441 

5441 

2053 

TSTS 

TtXT 

♦DATA SET SCAN TEST 

4 * 


1641 

4554 

2053 

4341 






4E20 

2024 

5445 

5354 





006226 

1646 

5345 

434F 

4E44 

TSTT 

ItXT 

♦SECOND INTERRUPT TEST 4» 


164b 

2049 

4E54 

4552 







5255 

5054 

2054 







4553 

5420 

2400 





006227 





# 




006226 





* DUMPER ROUTINE -USES CHANNEL 2 

TO READ 

006*29 





* 




006230 

1654 

3C02 



DMP 

LDV 

$K3,=2 

USE CHANNEL 2 

006231 

1655 

6752 




CL 

= $K2 

RAM ADDRESS 

006232 

1656 

9B80 

2BAA 



LAB 

4bi*<kTB 

CPU ADDRESS 

006233 

1656 

0000 




HLT 



006234 

1659 

AFOO 

1661 



STR 

4R2,<DMP2 


006235 

165b 

9F60 

165F 



STB 

$B1*<DMP1 


006236 

165D 

9380 

1098 



LNJ 

4bl*<RDATA 

READ 

006237 

i 6 5 F 

2BAA 


DMP1 

DC 

<RTd 

TO HERE 

006236 

1660 

0200 




DC 

X ♦ 200 * 

RANGE 

006239 

1661 

0000 



DMP2 

DC 

X»0* 

RAM ADDRESS 

006240 

1662 

8000 




DC 

2 9 8000• 


006241 

006242 

1663 

OF F 1 



* 

b 

>DMP 

DO NEXI 

006243 


1664 



V4LB 

EuU 

$ 


006244 






1FZ 

(4AF-2) * LAF 99 


006245 

lEDb 





ORG 

2ER0+X * 1 Ebb♦ 


006246 


1EBB 



SDb 

EuU 

4 

SEND BLOCK ARtA 

006*49 






IF2 

(4AF-2)*LAF98 


006250 

2BAA 





ORG 

2ERU + X•2BAA * 


006*53 


2BAA 



RTb 

EuU 

4 

RETURN BLOCK aREA 

006257 

2 5 AA 




SAF9 

URG 

ZERU+X * 25AA• 


006* Sts 


25AA 



LAF2 

EUU 

4 



006*59 

006*60 

006*61 


* INTERRUPT SAVE AktA FOLLOWS. THIS AREA RILL BE OVER WRITTEN BY 

* DATA DURING DATA TRANSFERS BUT THE FOLLOWING SAVE AREAS ARE 

* RE-CREATED bEFOKE TESTING INTERRUPTS 


00626 c 


* 


006*63 * 

006264 * INTERRUPT SAVE AREAS - 16 FOR MLCC 


006*65 



# 


006266 



* 

CHANNEL 1 

006*67 

*5 AA 

0000 

IS1 RESV 

006*66 

25Ab 

0000 


RESV 

006269 

25AC 

7864 


RESV 

006*7U 

* 5 aU 

0000 


RESV 

006*71 

*5 AE 

1020 


DC 

00627* 

2 5 AF 

FFFF 


DC 

006273 

*5bO 

0000 


RESV 

006*74 



* 

CHANNEL * 

006*75 

25B6 

0000 


RESV 

006* 7o 

2 5b/ 

0000 


RESV 

006*77 

25B6 

7884 


RESV 

006*76 

* 5B9 

0000 


RESV 

006*79 

*5bA 

1020 


DC 

006*80 

*5bo 

FFFF 


DC 

006281 

25BC 

0000 


RESV 

00628* 



* 

CHANNEL 3 

006*83 

25C* 

0000 


RESV 

006*84 

25C3 

0000 


RESV 

006*85 

25Ch 

7884 


RESV 

006286 

* 5C5 

0000 


RESV 

006287 

25C6 

1020 


DC 

006*88 

Z5C7 

FFFF 


DC 

006*89 

* 5C8 

0000 


RESV 

006*90 



* 

CHANNEL 4 

006291 

25CE 

0000 


RESV 

00629* 

* 5CF 

0000 


RESV 

006*93 

25D0 

7884 


RtSV 

006*94 

25D1 

0000 


RESV 

006*95 

25U* 

10*0 


DC 

006*96 

25D3 

FFFF 


DC 

006*97 

25D4 

0000 


RESV 

006*96 



* 

CHANNEL 5 

006*99 

25DA 

0000 


KESV 

006300 

*5Db 

0000 


RESV 

006301 

25DC 

7884 


RESV 

006302 

*5 DO 

0000 


RESV 

006303 

25DE 

1020 


DC 

006304 

250F 

FFFF 


DC 

006305 

25E0 

0000 


RESV 

006306 



* 

CHANNEL 6 

006307 

*5Eb 

0000 


KESV 

006306 

*5L / 

0000 


KESV 

006309 

25E6 

7864 


RESV 

006310 

25E9 

0000 


KtSV 

006311 

25EA 

1020 


DC 

00631* 

25Eb 

F F F F 


DC 

006313 

25EC 

0000 


RESV 

006314 



# 

CHANNEL 7 

006315 

*5F* 

0000 


RESV 

006316 

25F3 

0000 


RESV 

006317 

25F4 

7864 


KESV 

006316 

25F5 

0000 


KESV 

006319 

25F6 

1020 


DC 

006320 

25F 7 

FFFF 


DC 

006321 

25F6 

0000 


RESV 

006322 



* 

CHANNEL 8 

006323 

25FE 

0000 


RESV 

006324 

* 5 F F 

0000 


RESV 

006325 

*600 

7864 


RESV 

00632b 

2601 

0000 


RESV 

006327 

*60* 

1020 


DC 

006326 

*603 

FFFF 


DC 

006329 

2604 

0000 


RESV 

006330 



* 

CHANNEL 9 

006331 

260A 

0000 


RESV 

00633* 

*60b 

0000 


RESV 

006333 

2oOC 

7884 


RESV 

006334 

* bOD 

0000 


RESV 

006335 

2bOE 

1020 


DC 

006336 

*bOF 

FFFF 


DC 

006337 

*610 

0000 


RESV 

006336 



* 

CHANNEL li 


4AF ,0 

TRAP SAVE POINTER 

1*0 

chan*level 

1,X*7884t 

SAVE Ri*R2,R3*R4*I,05 

1 *0 
< I Hu 1 

RFU 

-1 

5 ♦ $ A F * 0 

MAKE SURE PKIvLEGE BIT 1$ Sf 

4AF ,0 

TRAP SAVE POINTER 

1*0 

CHAN,LEVEL 

1*X*7884* 

SAVE ki*K2,R3*R4*i,B5 

1*0 
< IHD1 

RFU 

-1 

5 + 4AF *0 

SET PRIVILEGE BIT 

4AF *0 

TRAP SAVE POINTER 

1*0 

CHAM,LEVEL 

1, X * 78 84 * 

SAVE R1,K2*R3*R4,I,b5 

1*0 

<IHul 

RFU 

-1 

5 + 4AF *0 

SET PRIVILEGE 

4AF*Q 

TRAP SAVE POINTER 

1*0 

CHAN *LEVEL 

1*X♦7884• 

SAVE RI*R2*k3,R4,I,B5 

1*0 
< I HU1 

RFU 

-1 

5 + 4AF ,0 

SET PRIVILEGE BIT 

4AF *0 

TRAP SAVE POINTER 

1*0 

CHAN,LEVEL 

1,X» 7884* 

SAVE ki,K2,R3,R4,l,B5 

1*0 
< IHDl 

RFU 

-1 

5+4AF*0 

SET PRIVILEGE BIT 

4AF,0 

FRAP SAVE POINTER 

1*0 

CHAN *LEVEL 

1,X•7884 * 

SAVE kI,K2,R3,R4,I,B5 

1*0 
< I HDI 

RFU 

-1 

5 + 4AF ,0 

set PRIVILEGE BIT 

4AF ,0 

TRAP SAVE POINTER 

1*0 

CHAN,LEVEL 

1*X»7884* 

SAVE R1*K2,R3*R4,I,B5 

1*0 
< I HD 1 

RFU 

-1 

5 + 4AF * 0 

SET PRIVILEGE BIT 

4AF *0 

TRAP SAVE POINTER 

1*0 

CHAN,LtVEL 

1,X*7884* 

SAVE RI*K2,R3,R4,I f B5 

1*0 
< I HDl 

RFU 

-I 

5 + 4AF *0 

SET PRIVILEGE BIT 

$AF * 0 

TRAP SAVt POINTER 

1*0 

chan*level 

1 ,X * 7884• 

SAVE Ri*K2,R3,R4,I f BS 

1*0 
< 1 HD 1 

RFU 

-1 

5 + 4AF *0 

SET PRIVILEGE BIT 
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006339 

2616 

0000 

KESV 

*AF,0 

006340 

2617 

0000 

KESV 

1,0 

006341 

2618 

7884 

KESV 

1,X•7884 * 

006344 

2o 19 

0000 

KESV 

1,0 

006343 

261A 

1020 

DC 

< 1 Hbl 

006344 

261b 

FFFF 

DC 

-1 

006345 

2b 1C 

0000 

KESV 

5 + SAF,0 

006346 



* CHANNEL 11 


006347 

4622 

0000 

KtSV 

$AF , 0 

00634b 

4623 

0000 

KESV 

1,0 

006349 

2624 

7884 

KESV 

l ,X* 7884* 

006350 

2o25 

0000 

KESV 

1,0 

006351 

2626 

1020 

DC 

< IHD1 

006354 

26 27 

FFFF 

DC 

-1 

006353 

2628 

0000 

KESV 

5 + $AF,0 

006354 



* CHANNEL 12 


006355 

262L 

0000 

KESV 

$ A F , 0 

006356 

262 F 

0000 

KESV 

1,0 

006357 

2630 

7884 

KESV 

1 ,X * 7884 * 

006358 

2631 

0000 

KESV 

1,0 

006359 

2632 

1020 

DC 

< 1 HD 1 

006360 

2633 

FFFF 

DC 

-1 

006361 

2634 

0000 

KESV 

5 ♦ $ A F,0 

006362 



* CHANNEL 13 


006363 

263 A 

0000 

KESV 

SAF , 0 

006364 

463b 

0000 

KESV 

1,0 

006365 

263C 

7884 

KESV 

1, X * 7 8 8 4 * 

006366 

4630 

0000 

KESV 

1,0 

00636 7 

2631 

1020 

DC 

< I HD 1 

006368 

263F 

FFFF 

DC 

-1 

006369 

2 640 

0000 

TibSV 

5+SAF,0 

006370 



* CHANNEL 14 


006371 

2646 

0000 

KESV 

$AF ,0 

006372 

2647 

0000 

KESV 

1,0 

006373 

2648 

7884 

KESV 

1,X»7884» 

006374 

4649 

0000 

KESV 

1,0 

006375 

264A 

1020 

DC 

< I HU 1 

006376 

264b 

FFFF 

DC 

-1 

006377 

464C 

0000 

KESV 

5 + $AF,0 

006378 



4 CHANNtL 15 


006379 

2654 

0000 

KESV 

8AF ,0 

006380 

2653 

0000 

KESV 

1,0 

006381 

2654 

7884 

KESV 

1 , X » 78 84 * 

006382 

2655 

0000 

KtSV 

1,0 

006383 

4656 

1020 

DC 

< I HU 1 

006384 

265 7 

FFFF 

DC 

-1 

006385 

265b 

0000 

KESV 

5+SAF,0 

006386 



* CHANNEL 16 


006387 

265E 

0000 

KESV 

*AF,0 

00638b 

265P 

0000 

KESV 

1,0 

006389 

2660 

7884 

KESV 

1 , X * 7884• 

006390 

2661 

0000 

KESV 

1,0 

006391 

2664 

1020 

DC 

< 1 Hul 

00639c 

2663 

FFFF 

DC 

-1 

006393 

4664 

0000 

KESV 

5*$AF,0 

006394 


266A 

LSI EUU 

$ 

006395 



# 


006396 



* INTERRUPT : 

3AVE AREA - 

00639 7 



* 



00639b 
006399 
006400 
006401 
006404 
006403 
006404 
006405 
0U6406 
006407 
00640b 
006409 
006410 
006411 
0064 1 2 
006413 
006414 
006415 


RESV 
TOPSAV RESV 
DC 

KESV 

DC 

DC 

DC 

KESV 


$AF,0 

1,0 

L • FFFF • 

1,0 

<DUMMY 

-l 

0 

8+7*$AF ,0 


* COUNT TABLE fok intekkupts 

* 

INMb KESV 16,0 

* 

* status table fok intekkupts 

# 

1ST KESV 16,0 

* LEVEL TAbLt FOK INTEKKUPTS 


TRAP SAVE POINTER 
CHAN,LEVEL 

SAVE R1,R2,R3,R4,I,B5 
SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN,LEVEL 

SAVE Ki,K2,R3,R4,I f B5 
RFU 

SRT PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN,LEVEL 

SAVE Ri,K2,R3,R4,I t B5 
RFU 

SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN, LEVEL 

SAVE Ki,K2,R3,R4,I,B5 
KFU 

SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN,LEVEL 

SAVE Ri,K2,R3,R4,I,B5 
KFU 

SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN,LEVEL 

SAVE Ri,K2,R3,R4,i,B5 
RFU 

SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN,<LEVEL 

SAVE Ri,<R2,<K3,<R4,<i»b5 
RFU 

SET PRIVILEGE BIT 


TRAP SAVE POINTER 
CHAN, LEVEL 
SAVE ALL REG 
RFU 

SUPPLIED AT RoPT TIME 
SET PRIVILEGE BIT 
FILLED AT SAVE TIME 
ROOM FOR SAVE 


00641 6 




* 




006417 

26A0 

0000 


ILV 

KESV 

16,0 


006418 




* 




006419 




* PRIORITY 

TAdLE fok interrupts 


006420 

26t>0 

0000 


PRIST 

KESV 

16,0 


006421 




* 


006424 




* RtAD 

FIRMWARE KEV NUMBER 


006423 




* 




006424 

46C0 

8F00 

1EBB 

PKEV 

SAVE 

<SDB,=2 * 0008' 

SAVE B* 


26C2 

0008 






006425 

26C3 

C380 

1OFC 


LNJ 

$B4,<GEN1T2 

GENERAL iNITAilUfc 

006^26 

26C5 

9380 

1098 


LNJ 

$B 1,<KDAT A 

BLOCK READ 

006427 

26C7 

2BAA 



DC 

<K 1 B 

TO HERE 

006428 

46C8 

0002 



DC 

2 

RANGE 

006429 

26C9 

0000 



DC 

0 


006430 

006431 

26CA 

0000 


* 

DC 

0 

EVEN BYTE START 

006432 

006433 




* 

CALL 

ZV$TC,FKEV 

PRINT FIKMWARc REV 


FbCO 0003 
D36C 0000 
OF 80 


006434 

26D1 

9800 

2BAa 

LDR 

$>R 1, <KTB 

GET REV NUMBER 

006435 

26D3 

9570 

OOEO 

AND 

$K1,=Z• OOEO * 


006436 

26D5 

1045 


SUK 

$K 1,5 

ALIGN 1NIER1M REV NUMBER 

006437 

26D6 

9F00 

14CE 

STK 

$R1,<TEMP 

00643b 

26D8 

1900 

26E0 

BE2 

$R1,<SIT12 

BYPASS 1NTER In REV IF 0 

006439 

2 6DA 

FBCO 

0003 

CALL 

ZV$TD,TEMP 

TYPE ^NTtRlM 


2 6 DC 

D380 

0000 

X 




26DE 

OF 80 






26DF 

14CE 





006440 




* 



006441 

26E0 

9800 

2BAA 

SIT12 LDK 

SK1,<KTB 

GET REV NUMB 

006442 

26E2 

9570 

00 IF 

AND 

$R1 , = Z»001M 

STRIP TO REV 
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TITLE DCMCi 

♦REV. 

A' 




006443 

2664 

9 FOO 

14C4 



STR 

006444 

26E6 

PBCO 

0003 



Call 


26E8 

0380 

0000 

X 




26EA 

0P80 






26EB 

14C4 





006445 

26EC 

6C01 




LOV 

006446 

46 EL) 

0600 

14C4 



LOR 

006447 

26EP 

0956 




CMR 

006448 

26P0 

0284 




BGE 

006449 
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ZHTbA 

ZHWQTC 

ZV$C 


2391b 


338 1C 


2650b 


2758b 


4117 C 4125C 


4139 


2603b 
2662 b 
2654b 
2663 
2674b 
2664b 
2666b 
739b 
854b 
2 762b 
4327b 
4320b 


741b 

3925b 


743b 


745b 


TIMLIN 
TMP1 

4685 

4686 

488 7 







TOPbAV 

3654 

3 7 2 1L 

3 722C 







TPk 

396t 

414 

4 1 8 C 

419 

659C 

6 72 

694 

765C 

767C 


776C 

788C 

7 98 C 

828 C 

842t 

8621 

872C 

1141C 

1166 


1212 

1267t 

1382C 

1475 

1524C 

1534 

1580 

1611C 

1615 


1 7291 

1 739 

1874C 

1879 

2369C 

2378 

2448 

2920C 

2927 


3083 

3365C 

3382 

44 1 3t 

4415 






. f 6bC 
}±88 
1632 
3075C 


1982 

TRAM 

469b 



1997 

TRAN2 

1966b 



2011 

TRAN3 

2000 b 



2025 

TRAN4 

2014b 



2039 

TRAIM5 

2028b 



2052 

TRANto 

2042b 



5194 

TRANM1 

1430 

226 7 

2268 

3976 

TRNON 

2960b 

3493b 

3497b 

3587 

TRPERk 




6156 

TSA2 

3673 



6209 

T ST A 

501 



6210 

T ST b 

637 



6211 

1ST t 

724 



1119 

TSTCHN 

962L 

1060 

1114 

6212 

1 STU 

912 



6213 

1ST t 

956 



6215 

TSTF 

1258 



6216 

TSTG 

1377 



6217 

TSTh 

1506 



6218 

TSTJ 

1550 



6219 

ISTK 

1810 



6220 

TSTL1 

1894 



6221 

TSTM1 

1984 



6222 

TSTh 

2515 



6223 

TSTP 

2703 



6224 

TSTR 

2900 



6225 

T STS 

3066 



6214 

ISIS! 

1128 



6226 

TSTT 

3394 



1236 

TSVLU 

1169 



6175 

T TUT 

450L 

4339 

4340C 

4339 

UP T M 

4333b 

4371b 

44 14b 

4346 

UPTM1 

4343b 



6243 

VSLb 

6467 



5998 

VALT ST 

1681 

1682 

2719 

6449 

wF W 

6451b 



2410 

wRT 

2264b 



2361 

wRT 1 

2415b 



32 70 

WRUPT 

3272b 



5709 

A M 5 5 

5701 

5702 

5704 

5674 

XM56 

5624 

5625 

5626 



5663 

5667 


5615 

XM57 

5491 

5492 

5493 

5626 

XM56 

5502 

5503 

5505 

5640 

XM59 

5512 

5513 

5514 

5653 

XM60 

5523 

5524 

5526 

56o5 

XM6 1 

5533 

5534 

5535 

5567 

XM67 

5561 

5562 

5563 

5603 

XM68 

5571 

5572 

5576 

5608 

XM69 

5589 

5590 

5591 

5586 

XM70 

5556 

5557 

5558 

5574 

XM71 

5594 

5595 

5596 

5474 

XMU 

5579 

5580 

5581 

54 78 

XMD1 

5470 

5471 

54 72 

5543 

XMD2 

5696 

569 7 

5699 

5193 

XMOT 




2215 

XTST 

1985b 

1999b 

2013b 

2256 

XTST1 

2253b 



2230 

X 1 bl 2 

2228b 



2241 

XTST3 

2239b 



320 

ZERO 

334 

6245 

6247 


5637 


5638 


5642 


5649 


5650 


5651 


5662 


5716 

5705 


5717 

5706 


5718 

5707 


2013b 2027b 2041b 2054b 


326 

323 

323 
321 
326 

324 

325 
325 

321 

322 
322 
324 
696b 


3 6 6 7 C 
3638 
362C 
3646 
4315C 
43 IOC 
4312C 
364C 

361 

892b 


36681 

3648 

3o5ZC 

4308 

4321 

4373C 

43 75C 


3651 

2676b 


6250 

3669C 

3653 

4368 
4332 
441It 
4417C 


3674C 


6252 


367 It 
4022C 


6255 


4369C 


4370C 4393 


5720 


6257 


4396 


4412C 



TITLE DCMCl »REV. A* 


PAGE 68 


ZVSCQ 

iW 

ZVSHM 
ZVSHR 
ZVSlD 
Z V$ IH 
ZVSPCH 


704b 
376b 
386b 
3692b 
92 lb 
321 
356b 
368b 
486b 


900b 

4430b 

886 b 

3698b 

2600 


2685b 

II38B 1270b 1577b 2127b 2616b 36798 3683b 3688B 


3 lift' 
2900B 


ZVSUC 

AVsRD 

ZVST 

355b 

322 

415b 

357b 

348b 

47"5b 

92 IB 
47/B 

501b 

637B 

724b 

912B 

956B 

1128B 


1377b 

1506B 

1550B 

1810b 

1894B 

1984B 

2515B 

2703B 

2900b 

4VSTC 

3394b 

410b 

4462b 

475b 

477B 

487B 

501B 

637B 

724B 

912B 

956B 


1258b 

1377b 

15U6B 

1550b 

1810B 

1894B 

1984B 

2515B 

Z703B 

ZVSTD 

ZVSTH 

3068B 

4138 

4 19b 

3394b 

6439b 

4457B 

6433B 

6444b 







715 

4247 
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1 

0 

1* 


ZVsTHZ 
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RECORDS 
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6 CROSS REF VERSION L - 24 SEPT* 
RS LINKER VERSION 5.00 05/10/78 
LINK MAP FOR DCMCl 
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START 
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HIGH 
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ZHPFR 
ZHTSA 
ZHNTSA 
ZHRTCi 
ZHRTCC 
ZHRTCL 
ZHWDTC 
ZHMERC 
ZHIAFd 
ZHTH 29 
ZHTH26 
ZHTH27 
ZHTH26 
ZHTH25 
ZHTH24 
ZHTH23 
ZHTH22 
ZHTH21 
ZHTH20 
ZHTH19 
ZHTH16 
ZHTH17 
ZHMEMP 
ZHTH16 
ZHLERR 
4HTH15 
ZHNRES 
ZHTH14 
ZHPMEM 
ZhTHl3 
ZHP-OP 
ZHTH12 
ZHTHll 
ZHTH10 
ZHTH9 
4H1H8 
ZHTH7 
ZHTH6 
ZHOVFL 
ZHTH5 
ZHOP-N 
ZHTH4 
ZHTH3 
ZHSC-N 
ZhTH2 
ZHTRC 
ZHTH1 
ZHMCL 
ZH1SAZ 
ZHlVbb 
ZH1VbS 
* Z V $ T H 
ZV$TD 
ZVSTH 
4 V ST Hz. 


H 

D 

H 

AD 


*zvs 
zvs 

Z V $ 

zvs 

ZVS—2 
ZVS--3 
*ZVSER 
ZVSEK 
ZVSIA 

zvs—0 

* Z V S F 
ZVSF 

* Z V S T 
ZVSUC 
ZVSTC 
Z VST 
ZVSU 

* 4 V S P C H 
ZVSPCH 

*4VSC 
ZVSC 
4 V SCO 


0100 
0000 
2BA9 
IF 3 1 

0000 
0000 
0000 
0002 
0010 
0014 
0015 
0016 
0017 
001 F 
0020 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
006 A 
006 b 
0O6C 
006D 
OObE 
OObF 
OObF 
0070 
0070 
0071 
0071 
0072 
0072 
0073 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
007A 
00 7 A 
007B 
007b 
00 7 C 
00 7 D 
007D 
007E 
007E 
00 7 F 
00 7 F 
0080 
0080 
0O80 
1664 
1699 
1664 
168C 
16b4 
1 6 d 9 
1 6b4 
16BE 
16D6 
16E8 
1 74D 
174D 
1 779 
1760 
17bD 
1 7bD 
17CB 
17E8 
1704 
17CB 
17b»D 
17FC 
17 F C 
18FE 
18FE 
1921 
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*ZV$GP 


1932 

ZV$GP 

* 

1932 

zvs>—4 


1932 

*ZVbHA 


19bE 

zVbHA 


l9bE 

ZVJHZ 


1968 

zVbHb 


1903 

*ZV$HD 


1997 

ZVSHL 


1997 

*zv$ia 


19C9 

ZV3»I A 


19CC 

ZVSAbF 


1A7D 

ZViARG 


1A 7 B 

zv $—1 


1A38 

ZVbiAV 


19CA 

*ZV$bRK 


1A88 

Z V 3>dRK 


1A88 

*ZV$RU 


1AA2 

ZViRD 


1AA2 

ZVbHM 


ldl8 

ZVSHK 


1AD1 

ZVSSVi 


1L77 

ZVbbV3 


1C97 

ZVSAF 


1AB3 

ZVbTTY 


1 Adb 

ZVhoYp 


1L87 

lb49 

ZVSbKF 


1 ALA 

Z V $T 11) 


1 Ab4 

ZVSLF* 


1 AdE 

ZViTK 


1 AbA 

ZV$RAR 


1 ABB 

ZV$ST1 


iAbF 

ZVbRLL 


1 AGO 

ZVbdUd 


1AB6 

ZVbULb 


1AL2 

ZViKCo 


1AC3 

ZViNbK 


1AC7 

Z V $ b 1 R 


1AL5 

ZV$dKb 


1AC9 

ZVblZ 


iadl 

ZViLR 


1 ALE 

ZVSUAI 


1 Abl 

ZVSHRu 


1 ALB 

ZViHKL 


1ALL 

ZVbLRU 


1ALD 

ZViLKL 


1 ALE 

ZVbHBU 


1ALF 

Z V$LF1 


1ABD 

ZVi~~b 


1AU4 

ZVSRMU 


1 Ab2 
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IAUO 

HlbAUP 


1ALF 

ZVSRAa 


1 AbL 

ZVSRDT 


1LD3 

ZVSLTL 


1AB9 

ZVSbl 


ldF4 

ZVSTbT 


1U29 

ZVbMDL 


1LFD 

ZV$R99 


1EFB 

ZVblbA 


1AU7 

ZViulH 


1 aD2 

ZV$ZRU 


1B36 

ZVSbbH 


id38 

ZVbCPU 


1AB8 

ZV$RbO 


1B36 
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1B41 
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1E38 

ZViALL 
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